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PRESENTACION 


El panorama de las aplicaciones de los ordenadores a la enseñanza 
está sobrado de discursos teóricos y falto de aplicaciones concretas. Por 
eso, y a pesar de tener algunas dudas sobre su alcance, me he animado a 
publicar estos programas de generación aleatoria de ejercicios (G.A.E.), 
con la esperanza de que resulten útiles en sí mismos, o que susciten en el 
lector ideas que contribuyan a abrir nuevos caminos en el resistente 
campo de las aplicaciones educativas de los ordenadores. 


Estos programas, que han sido diseñados para ser utilizados dentro 
del marco de la enseñanza convencional, no suponen, ni predisponen, 
ninguna didáctica concreta, pues todas consideran necesaria la ejercita- 
ción del alumno. 


Creo conveniente advertir que lo que se va a exponer en este libro, 
nada tiene que ver con la denominada enseñanza asistida por ordenador 
(E.A.O.), aunque los programas de G.A.E. bien pudieran integrarse en 
programas de E.A.O. 


En el texto se exponen las ideas básicas sobre la generación aleato- 
ria de ejercicios, así como observaciones útiles para el lector que desee 
programar por su cuenta otros ejercicios, bien sean de matemáticas, de 
fisica o de otras materias. 


Este libro puede ser útil a todos aquellos que necesitan disponer de 
muchos ejercicios del mismo tipo y de las soluciones. En especial, a 
profesores, estudiantes y padres de estudiantes. 


Los profesores podrán disponer de innumerables ejercicios para 
realizarlos en clase, proponerlos como deberes o preparar exámenes. 
Los estudiantes tendrán una amplia colección de enunciados en los que 
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ejercitarse y cotejar las soluciones inmediatamente. Los padres podrán 
obtener ejercicios y proponérselos a sus hijos para reforzar sus habilida- 
des y ayudarles a preparar exámenes. 


Todos los algoritmos que se presentan han sido codificados en 
BASIC, el lenguaje de programación más sencillo y popular. Los pro- 
gramas corren sin dificultad en una amplia gama de ordenadores 
domésticos y personales; en particular deben funcionar en los del 
sistema MSX y en los PC de IBM y compatibles. Al lector le será fácil 
realizar las escasas modificaciones que requieren los programas para ser 
ejecutados en otros ordenadores. 


Los listados, tal como vienen en el texto, están preparados para 
obtener las salidas (enunciados y soluciones) por la pantalla. Aconsejo 
vivamente al lector que lea el capítulo 1, en donde se explica cómo 
arreglar los programas para que los resultados salgan siempre por la 
impresora, o para que el ordenador ofrezca la alternativa de salidas por 
la impresora o por la pantalla, según convenga. 


En el capítulo 1 también se explica la manera de preparar un disco 
para manejar todos los programas del libro de forma cómoda y sencilla, 
con objeto de que las personas sin conocimientos informáticos puedan 
usarlos. 


Mi agradecimiento a Saltés por la portada que arropa al texto, y a 
Agustín Blanco, Javier Zabala y Ricardo Zamarreño por las sugerencias 
que me han hecho llegar, después de haber leído pacientemente la 
versión manuscrita. 


Ricardo Aguado-Muñoz 
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1 


INTRODUCCION 


1.1 GENERACION ALEATORIA DE EJERCICIOS 


Se entiende por generación aleatoria de ejercicios (G.A.E.), la crea- 
ción por ordenador de un número prefijado de ejercicios del mismo tipo, 
en los que los datos de los enunciados (o las soluciones) se generan al 
azar. El ordenador escribe en la pantalla, o en el papel de la impresora, 
una lista con todos los enunciados numerados y otra con las correspon- 
dientes soluciones. 


Veámoslo con un ejemplo: 


Se desea generar 40 ejercicios de máximo común divisor y mínimo co- 
mún múltiplo de dos números. La lista de enunciados puede ser como ésta: 


Núm. 1 Halla el m.c.d. y el m.c.m. de los números 880 y 48 


Núm. 2 Halla el m.c.d. y el m.c.m. de los números 495 y 819 


Núm. 40 Halla el m.c.d. y el m.c.m. de los números 891 y 66 


La lista de soluciones puede ser así: 


Soluciones: 
Núm. 1 
m.c.d. = 16 
m.c.m. = 2640 
Núm. 2 
m.c.d. = 9 
m.c.m. = 45045 
Núm. 40 
m.c.d. = 33 
m.c.m. = 1782 
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El ordenador, para cada ejercicio, genera al azar un par de números 
enteros positivos A(K), B(K), y escribe el enunciado: 


Núm. k Halla el m.c.d. y el m.c.m. de los números A(K) y B(K) 


Repite esta operación 40 veces para K = 1,2,....40. 


En una segunda fase el ordenador calcula el m.c.d. y el m.c.m. de los 
números A(K) y B(K), y escribe la solución: 


Núm. k 


Repite esto 40 veces, para K = 1,2,....40. 


1.22 ESQUEMA GENERAL 


El esquema general de todo algoritmo de G.A.E. es el siguiente: 


Título 
¿Cuántos ejercicios? n 


PRIMERA FASE 


Escritura del enunciado 
(se repite n veces) 
SEGUNDA FASE 


Escritura de la solución 
(se repite n veces) 


En el ejemplo precedente, el ordenador en la primera fase obtiene 
aleatoriamente los datos A(K) y B(K) de cada ejercicio. En la segunda 
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fase calcula los resultados D y M inmediatamente antes de escribirlos en 
la pantalla. Observe que las variables D y M no son de índice. 


Otra posibilidad hubiera sido generar los datos A y B como 
variables simples, escribir el enunciado y calcular las soluciones D(K) y 
M(K) como variables de índice, todo ello en la primera fase. En la 
segunda se escribirian las soluciones D(K) y M(K), para cada valor 
de K. 


Las variables de índice ocupan mucha memoria de ordenador, por 
eso hay que procurar usar las menos posibles. En el ejemplo que nos 
ocupa necesitamos dos: bien sean A(K) y B(K), o bien D(K) y M(K). 
Sin embargo, si se tratase de preparar ejercicios únicamente de m.c.d., es 
evidente que lo mejor sería utilizar las variables simples A y B y guardar 
en la variable de índice D(K) las soluciones. 


13 ¿RESOLVER LOS EJERCICIOS O PREPARARLOS? 


En unas ocasiones será conveniente preparar el enunciado y luego 
resolver el ejercicio, como en el ejemplo anterior. Sin embargo, en 
muchos casos es mejor generar aleatoriamente la solución y después 
preparar un enunciado que se acomode a esa solución. Y esto por 
alguna de estas razones: 


1. El algoritmo de resolución del ejercicio es complicado 


Pensemos, por ejemplo, en la generación de ejercicios de sistemas 
de cuatro ecuaciones lineales con cuatro incógnitas. Aquí es más sencillo 
generar primero la solución y luego preparar un sistema que tenga esa 
solución. 


2. Para garantizar el tipo de solución 


Si deseamos obtener ecuaciones de segundo grado con soluciones 
enteras, por ejemplo, no podemos generar al azar los coeficientes de la 
ecuación, so pena de obtener un alto porcentaje de ellas con soluciones 
no enteras o, incluso, sin solución. Lo mejor es elegir las soluciones y 
después preparar una ecuación que las contenga. 
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3. Para garantizar el tipo de datos 


Es el caso de los ejercicios de estadística que se presentan en este 
libro. Para generar, por ejemplo, una distribución normal de 100 datos, 
y obtener como ejercicio la media y la desviación típica, hay que elegir 
primero la media y la desviación, y luego generar la distribución. 


14 GENERACION ALEATORIA DE LOS NUMEROS 


La generación aleatoria de los números que intervienen en los 
ejercicios se realiza utilizando la función RND del BASIC. Como es 
sabido, la instrucción 


X = RND(1) 
asigna a X un número decimal aleatorio comprendido entre 0 y 1: 
0O<X<l (*) 


En la mayoría de los casos estos números decimales no se utilizan 
directamente. Hay que transformarlos, por ejemplo así: 


Y = RND(1)*10 


Esta asignación introduce en Y un número comprendido entre 0 y 
10. 


0O<Y<l10 


Estos números decimales Y tampoco son de mucha utilidad en este 
libro. Sólo si obtenemos su parte entera, serán interesantes para noso- 
tros: 


E = INT(RND(1)x*10) 
Ahora E será alguno de los números enteros 0, 1, 2, ..., 9. 


En general, si se desea un número aleatorio N comprendido entre 
los números enteros 4 y B, entonces la asignación: 


N = A + INT(RND(1)*x(B—A)) 


proporciona un número N mayor o igual que 4 y menor que B. 


(*) La función RND puede utilizar cualquier otro argumento positivo distinto del 1, pero siempre el 
resultado está comprendido entre 0 y 1. Por ejemplo, 0 < RND(2) < 1. 
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15 RANGO DE LOS NUMEROS 


Los números que intervienen en los ejercicios de este libro han sido 
elegidos de modo que pertenezcan a un rango determinado por la 
naturaleza del ejercicio, por la tradición escolar y por la presentación de 
los textos en la pantalla. Presentación que, a su vez, está condicionada 
por la estética y por el número de caracteres que se pueden escribir en 
una línea. 


Así, por ejemplo, los coeficientes de los polinomios o de las ecuacio- 
nes son números enteros de una o dos cifras, excepto en aquellas 
circunstancias en las que es defícil controlar los resultados. Imagínese el 
caso de la multiplicación de dos polinomios con coeficientes de una 
cifra. Es improbable que el polinomio producto tenga también los 
coeficientes de una sola cifra. 


En algunos programas de este libro se ha podido ajustar, de un 
modo preciso, el rango de los números para que los resultados pertenez- 
can a un orden prefijado; pero en otros, tales el caso de los determinan- 
tes, el ajuste ha sido experimental, es decir, se han probado los progra- 
mas con distintos parámetros hasta conseguir el efecto apetecido. 


1.6 ENMENDANDO EL AZAR 


En ocasiones no basta el puro azar para obtener buenos enuncia- 
dos. Veamos un ejemplo claro. Supongamos que hemos decidido gene- 
rar con el ordenador una serie de ejercicios de simplificación de fraccio- 
nes. Tenemos que generar el numerador P y el denominador Q de la 
fracción. Decidimos que estos términos han de ser números de dos o tres 
cifras, es decir, números entre 10 y 999, 


Las instrucciones 


Pp 
Q 


nos proporcionan los términos dentro del rango fijado; pero la mayor 
parte de las fracciones así obtenidas son irreducibles (aproximadamente 
un 60 %). Son demasiados ejercicios de simplificación que ... ¡no se 
pueden simplificar! 


INT(RND(1)*990) + 10 
INT(RND(1)*990) +10 


Para corregir este defecto podemos proceder así: Cada vez que el 
m.c.d. (P,Q) es 1, multiplicamos ambos términos de la fracción por un 


L3 


número aleatorio comprendido entre 1 y 9. Con lo que reducimos la 
presencia de fracciones irreducibles a un 7 %, que consideramos razona- 
ble. 


1.7 EN LOS SORTEOS SIEMPRE SALEN 
LOS MISMOS PREMIOS 


Con esta frase se quiere llamar la atención sobre el hecho de que 
siempre que se ejecuta un programa de este libro, se obtiene la misma 
lista de ejercicios. 


Hablando en general, este hecho supone una ventaja, más que un 
inconveniente. Imagine que ayer propuso un ejercicio a cada uno de sus 
42 alumnos y que hoy no encuentra la lista de soluciones. Ninguna 
tragedia. Usted ejecuta de nuevo el programa y vuelve a tener los 
mismos 42 ejercicios con sus 42 soluciones. 


Claro, que puede ocurrir que usted desee cambiar totalmente de 
enunciados de una vez para otra. Esto también tiene remedio: incluya en 
el programa las siguientes líneas: 


15 INPUT "Número clave ";C 
16 FOR I=1 TOC : Z=RND(1) : NEXT 1 


Ahora la lista de ejercicios dependerá del número clave que dé al 
ordenador, como contestación al INPUT de la línea 15. 


La explicación es la siguiente: Cada vez que se ejecuta un progra- 
ma, el ordenador genera con RND(1) la misma sucesión de números 
aleatorios. El efecto que producen las líneas 15 y 16 es el de desechar los 
C primeros números aleatorios y comenzar a utilizar la serie a partir del 
lugar C+1. Al variar este lugar, varían los enunciados y las soluciones. 


1.8 ESTRUCTURA DE LOS PROGRAMAS 


Todos los programas que se ofrecen en este libro tienen la misma 
estructura: 


Título del programa 

Borrado de la pantalla 

Nombre de los ejercicios 

Cuántos ejercicios? EJ 

(Precisiones sobre el tipo de ejercicios) 
Dimensionado de las variables de índice 
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FOR K = 1 70 EJ 
Escritura del enunciado núm. K 
NEXTK 


FOR K = 1 TO EJ 
Escritura de la solución núm. K 
NEXT K 


Fin 


En todos los programas la variable EJ guarda el número de 
ejercicios deseado y la variable K el número de orden del ejercicio. 


Algunos programas llevan al principio lo que hemos llamado 
«Precisiones sobre el tipo de ejercicios». Por ejemplo, el programa 
SISTEMAS.BAS nos permite escoger entre sistemas de 2, 3,4, 5 6 6 
ecuaciones. 


1.9 EL TIPO DE LAS VARIABLES 


Siempre que se ha considerado necesario, se han declarado las 
variables de tipo entero, incluyendo al principio de los programas la 
línea 


DEFINIT A-—Z 


lo cual ahorra memoria y acelera la ejecución. 


En algún caso concreto las variables enteras no se han podido 
declarar como tales, porque hay cálculos intermedios en los que pueden 
tomar valores que desbordan el intervalo —32768, +32767 que, como 
se sabe, es el rango de los números de tipo entero en los pequeños 
ordenadores. En este, y en otros casos, las variables han sido declaradas 
como de simple precisión con la línea: 


DEFSNG A-—Z 


Por cierto, si su ordenador no dispone de esta clase de declaracio- 
nes, suprima en los programas la línea que corresponda. La declaración 
de una variable de tipo entero siempre la podrá hacer añadiendo a su 
nombre el símbolo %. 
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1.10 SALIDAS POR IMPRESORA 


Para una más eficaz utilización de los programas es necesario 
disponer de una impresora que escriba sobre el papel los enunciados y 
las soluciones de los ejercicios. 


Si usted maneja los programas tal como vienen en el libro, obten- 
drá todas las salidas por pantalla. En el caso de que desee obtener las 
listas de enunciados y soluciones en papel, deberá dirigir estas salidas 
hacia la impresora. 


Sistema operativo MS-DOS 


Con el sistema MS-DOS es muy fácil dirigir las salidas de los 
programas hacia la impresora. Veámoslo en el caso del máximo común 
divisor, cuyo programa suponemos que lo tiene en el disco A: 


Escriba: 
A> basic mcdmcm > Iptl (<RETURN >) 


A partir de este momento, el programa MCDMCM,BAS se desa- 
rrollará en la pantalla y en la impresora, simultáneamente. 


Terminada la ejecución, el ordenador se queda en el modo BASIC y 
con las salidas dirigidas hacia la impresora. Para salir de aquí, escriba 
SYSTEM o provoque un error cualquiera. Desgraciadamente las últi- 
mas líneas de la pantalla se escriben también en el papel de la impreso- 
ra. Como se ve, esta manera de regresar al MS-DOS no es muy elegante. 


Lo mejor es cambiar, en el programa BASIC, la instrucción END 
por la SYSTEM, con lo que el propio programa nos devolverá al 
sistema operativo. Compruébelo, por favor. 


Sistema MSX 


En el BASIC del MSX (también se puede hacer en el BASIC de los 
compatibles) hay que sustituir todas las instrucciones PRINT (a partir 
de las de escritura de enunciados) por instrucciones LPRINT, es decir, 
hay que insertar una L delante de todos los PRINT. 


Una manera de hacerlo es listar el programa e incluir manualmente 
la L en todas las líneas que sea necesario, sin olvidar pulsar <RE- 
TURN> cada vez que se haya arreglado una línea. 
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Una vez modificado el programa, compruébelo y guárdelo en el 
disco con un nombre parecido al original. Por ejemplo, si acaba de 
modificar el programa MCDMCM.BAS, puede guardar la versión para 
impresora con el nombre de MCDMCM.IMP. 


1.11 SALIDAS POR PANTALLA O POR IMPRESORA 


En realidad usted no necesita un programa para obtener las salidas 
por la pantalla y otro para obtenerlas por impresora: un solo programa 
basta para dirigir las salidas a uno o a otro sitio, según le convenga. 


Esto ha quedado claro en el apartado anterior, cuando se utilizaba 
el MS-DOS. Ahora se trata de ver cómo se puede hacer desde el BASIC. 


Recordemos, con un sencillo ejemplo, cómo se escriben los datos en 
un fichero secuencial: 


10 REM Escritura en un fichero 

20 OFEN "A:PRUEBA.DAT" FOR OUTFUT AS 1 
30 PRINT + 1,”"HOLA" 

40 CLOSE 1 

50 END 


La línea 20 del programa abre un fichero secuencial, de nombre 
PRUEBA.DAT, en el dispositivo A: (en el disco que está en 4:) y le 
asigna el número 1. 


La línea 30 escribe en el fichero 1 la palabra HOLA. La 40 cierra el 
fichero. ; 


La impresora funciona como un fichero en el dispositivo LPTI: . 
Modificando ligeramente el programa anterior, podemos hacer que el 
ordenador escriba en el papel de la impresora la palabra HOLA : 


10 REM Escritura en la impresora 
20 OPEN "LPT1:" FOR OUTPUT AS 1 
30 PRINT + 1, "HOLA” 

40 CLOSE 1 

50 END 
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Observe que en la línea 20 únicamente se pone entre comillas el nombre 
del dispositivo “LPT1:”. 


En el sistema MSX, la línea 20 se escribe así: 
20 OPEN "LPT:" AS 1 


La pantalla también funciona como un fichero secuencial. Su 
nombre es “SCRN:” en los sistemas MS-DOS, y “CRT:” en MSX. 


Modifiquemos otra vez el programa para conseguir que el ordena- 
dor escriba HOLA en la pantalla. Sólo hay que cambiar “LPT1:” por 
“SCRN:;”. 


10 REM Escritura en la pantalla 
20 OPEN "SCRN:" FOR OUTPUT AS 1 
3O PRINT + 1,"HOLA"” 

40 CLOSE 1 

50 END 


En los ordenadores MSX, hay que poner: 
20 OPEN "CRT:" AS 1 
Ejecute este programa y verá que se escribe HOLA en la pantalla. 


En esencia los dos últimos programas son lo mismo. Varía sólo el 
nombre del dispositivo. Por esto es fácil tener un único programa que 
escriba los datos en la pantalla o en la impresora: 


10 REM Escritura en la pantalla o en la impresora 

15 INPUT "Salidas por pantalla ( O ) O por 

impresora ( 1 )"3Z 

20 1F Z=1 THEN OPEN "LPT1:" FOR OUTPUT AS 1 ELSE 
OPEN "SCRN:" FOR OUTPUT AS 1 

30 FRINT $ 1, "HOLA" 

40 CLOSE 1 

50 END 


La línea 20, en el sistema MSX, queda asi: 


20 IF Z=1 THEN OPEN "LPT:" AS 1 ELSE OPEN "CRT:" AS 1 


20 


Si respondemos con un 1 a la interrogación provocada por la 
línea 15, la palabra HOLA se escribirá en el papel de la impresora. Si 
respondemos con 0, entonces HOLA aparecerá en la pantalla. 


Lo expuesto hasta aquí da idea de lo que hay que hacer para 
modificar los programas de este libro en el caso de que le interese la 
alternativa pantalla / impresora. 


Se puede proceder así: 
1. Introducir las líneas: 


INPUT — "Salidas por pantalla ( 0 ) Oo por 
impresora ( 1 >)"3Z 


IF Z=1 THEN OPEN "LPT1:" FOR OUTPUT AS 1 ELSE 
OPEN "SCRN:" FOR OUTPUT AS 1 


al principio del programa, antes de la escritura de los enunciados. 
2. Insertar la línea CLOSE 1, antes de la línea END. 
Otra forma de hacerlo es sustituir la palabra END por CLOSE 1: END 


3. A todos los PRINT que escriben los enunciados y soluciones, 
añadirles ++ 1, (no olvide la coma). 


Con un procesador de texto, o con el editor de línea EDLIN, se 
puede sustituir automáticamente PRINT por PRINT + 1,. 


Veamos un ejemplo concreto: 


El programa MCDMCM.BAS de la página 23, puede quedar 
modificado de esta manera: 


10 REM Máximo común divisor y minimo común múltiplo 
20 CLS 

30 FRINT "MAXIMO COMUN DIVISOR Y MINIMO COMUN MULTI 
PLO" 

40 PRINT : PRINT : INPUT "Cuántos ejercicios”";EJ 

45 INPUT "Salidas por pantalla ( 0 ) o por impreso 
ra (1 03"3Z 
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47 1F Z=1 THEN OPEN "LFT1:" FOR OUTPUT AS 1 ELSE 
OPEN "SCRN:" FOR OUTPUT AS 1 

50 DIM A(EJ)>),B(EJ) 

60 FOR K=1 TO EJ 

70 A1=INT(RND(1)x13+1) B1i=INT(RND(1)x13+1) 

80 A2=INT(RND(1)k13+1) B2=INT(RND(1)x13+1) 

90 A3=INT(RND(1)x7)x2+1 : B3=INT(RND(1)x10)x2+1 
100 A(K)=A1XA2xXA3 : B(K)=B1xB2*B3 

110 FRINT + 1, 

120 FRINT + 1,"Num.":K;TAR(9)"Halla el m.c.d. y el 
m.c.m. de los números ";¡A(K)5"y"3RB(K) PRINT + 1, 
130 NEXT K 

140 REM Escritura de las soluciones 

150 PRINT + 1, : PRINT + 1, 

150 FRINT +4 1, "*XxXxxxX SOLUCIONES kxxxx" 
170 FOR K=1 TO EJ 

180 FRINT + 1, 2 PRINT $ 1, "Num.";3K : PRINT $ 1, 
190 A=A(K) : B=B(K) 

200 R=A MOD B : IF R<>0 THEN A=B : B=R : GOTO 200 
210 M=A(K)xXB(K)/B 

220 PRINT + 1, "m.c.d. ("¡A(K)53",":B(K)5") ="¿B 
230 PRINT + 1, "m.c.m.("¡A(K)53","5B(K)53") ="¿M 
240 NEXT K 

245 CLOSE 1 

250 END 


En MSX la línea 47 queda así: 


47 1F Z=1 THEN OPEN "LPT:" AS 1 ELSE OPEN "CRT:" AS 1 


1.12 COMO PREPARAR UN DISCO AUTOEJECUTABLE 

Usted puede preparar un disco para que lo utilicen aquellas perso- 
nas que, estando interesadas en la G.A.E., no tienen muchos conoci- 
mientos sobre ordenadores. 


Veamos los pasos que tiene que dar: 


1. Coloque el disco del sistema operativo MS-DOS en A y un 
disco virgen en B. 
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2. Formatee el disco B, al tiempo que incluye el sistema operativo. 
Para ello teclee: 


FORMAT B:/S 


3. Copie el BASIC, que suponemos que está en el disco A. Para 
ello teclee: 


COPY A:BASIC.COM B: (1) 


4. Copie en el disco B los programas GAE. Para ello saque el 
disco del DOS de A e introduzca un disco que contenga los programas 
de este libro. Escriba: 


COPY A:x*.BAS B: 


5. Ahora puede trabajar con un solo disco. Introduzca en A el 
disco con las copias de los programas y modifique todos ellos cambian- 
do la instrucción END por la SYSTEM. 


6. Escriba los siguientes ficheros BATCH, procediendo así: 


A>COFY CON: AUTOEXEC.BAT 
echo of+ 

indice 

“Z 


A>COPY CON: INDICE.BAT 

echo off 

cls 

dir *X.bas /w 

echo Escriba : 

echo Ejecutar NOMBREDELPROGRAMA ( mo necesita BAS ) 
“Z 


A>COFY CON: EJECUTAR. BAT 
echo of+ 
basic 71 
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Si ha seguido los pasos anteriores, en el disco A debe tener los 
siguientes ficheros: 
Sistema Operativo 
BASIC 
Programas GAE en la versión SYSTEM 
AUTOEXEC.BAT 
INDICE.BAT 
EJECUTAR.BAT 


Compruébelo escribiendo: 
A > dir 


Ahora pruebe el disco que acaba de preparar: ponga en marcha el 
ordenador con el disco A (apague y encienda, o bien pulse simultánea- 
mente las teclas Ctrl Alt Del). En la pantalla aparecerá lo siguiente: 


Volumen en unidad A sin etiqueta 
Directorio de A:l 


PRIMOS 
OPERSIST 


BAS 
BAS 


MCDMCM BAS 
ECUACLIN BAS 


SIMPLIFI BAS 
ECUASEGU BAS 


OPERAFRA BAS 
SUBRUTIN BAS 


CAMBSIST BAS 
PRUEBA BAS 


PRUESUBR 
FACTOPOL 
DISNORMA 
GRAFICA 


BAS 
BAS 
BAS 
BAS 


26 Archivo(s) 


Escriba : 


Ejecutar NOMBREDELDELPROGRAMA 


A> 


MULTIPOL BAS 
ECUACUAR BAS 
TESTSIMU BAS 


Escriba, por ejemplo, 


DIVIPOLI BAS 
FRACALGE BAS 
DISTRIBI BAS 


DIVIRUFF BAS 
DETERMIN BAS 
TRIANREC BAS 


193536 bytes libres 


( mo necesita BAS ) 


Ejecutar mcdmcm 


VALORPOL BAS 
SISTEMAS BAS 
TRIANGUL BAS 


(<RETURN >) 


y el programa del máximo común divisor empezará a desarrollarse. 
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Z 


DIVISIBILIDAD 


2.1 DESCOMPOSICION DE UN NUMERO 
EN FACTORES PRIMOS 


Con este programa el ordenador nos pregunta cuántos ejercicios 
queremos. Á continuación nos propone la descomposición en factores 
de tantos números N como hayamos elegido y, por fin, nos muestra los 
resultados. 


Veamos cómo funciona: 


DESCOMPOSICION EN FACTORES PRIMOS 
Cuántos ejercicios ? 10 


Num. 1 Descomponer en factores primos el número 5460 
Num. e Descomponer en factores primos el número 3857 
Num. 3 Descomponer en factores primos el número 1386 
Num. Y Descomponer en factores primos el número 2156 
Num. 5 Descomponer en factores primos el número 2730 
Num. 6 Descomponer en factores primos el número 294 
Num. 7 Descomponer en factores primos el número 165 
Num. 8 Descomponer en factores primos el número 704 


Num. 39 Descomponer en factores primos el número B112 


Num. 10 Descomponer en factores primos el número 357 
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.....* SOLUCIONE S Mmmm 


Num. 1 Num. e Num. 3 Num. Y Num. 5 
5460| 2 3857| 7 1386| 2 2156] 2 2730| 2 
e730] € 551| 139 693| 3 1078| 2 1365| 3 
1385] 3 2a9| 29 231| 3 5391 7 y55| S 

489] 5 1 771 7 72 7 31| 7 
91| 7 11| 11 11| 11 13| 13 
13| 13 1 1 1 

1 

Num. 6 Num. 7 Num. 8 Num. 39 Num. 10 
ea94]| e 165| 3 704] e e112]| 2 357| 3 
147| 3 S55| S 3se| 2 4056| 2 119| 7 

49| 7 11| 11 176| 2 2028| 2 17| 17 
7| 7 1 BaB| 2 1014| e 1 
1 44| 2 507| 3 

pe| e 169| 13 
11| 11 13| 13 
1 1 


que 


Se ha procurado que el número N no sea excesivamente grande, 
tenga variedad de factores primos, pero no superiores a 29, y que 


muy pocas veces sea primo. Esto se ha conseguido haciendo que N sea 
el producto de tres números aleatorios A1, 42 y 43; de los cuales, A1 y 
A2 son números comprendidos entre 1 y 29, y 43 es un número impar 


que 


10 
20 
30 
40 
50 
60 
70 
80 
90 


varía entre 5 y 23. 
He aquí el programa que produce las salidas anteriores: 


REM Descomponer en factores primos 

CLS 

PRINT "DESCOMFOSICION EN FACTORES PRIMOS" 
PRINT : PRINT 

INPUT "Cuántos ejercicios "¡EJ 

DIM A(EJ) 

FOR K=1 TO EJ 

A1=INT(RND(1)k29+1) 

AZ=INT(RND(1)x29+1) 


100 A3=INT(RND(1)x10) x2+5 
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110 A(K)=A1xA2XA3 


120 PRINT 

130 PRINT "Num."¿K;3"  Descomponer en factores primos 
el número ";A(K) 

140 NEXT K 


150 REM Escritura de las soluciones 

1560 PRINT : PRINT 

170 FRINT "*xxxxxX SOLUCIONES kxXxxxx" 
180 FOR K=1 TO EJ 

190 PRINT : FRINT "Num.";K : PRINT 

200 N=A(K) : GOSUB 1000 

210 NEXT K 

220 END 

1000 REM Subrutina primos 

1010 L=LEN(STR$(N)) 

1020 D=1 

1030 D=D+1 

1040 IF DxXD>N THEN GOTO 1090 

1050 IF N MOD D<>0 THEN GOTO 1030 

1060 PRINT TAB(L+1-LEN(STRS$(N)))STR$(N); TAB (L+1) 
CHR$ (179);D 

1070 N=N/D 

1080 GOTO 1040 

1090 PRINT TAB(L+1-LEN(STR$ (N)))STR$(N) 5 TAB (L+1) 
CHR$ (179): N 

1100 PRINT TAB(L)"1"3TARB(L+1)3¿CHR$ (179) 

1110 RETURN 


Si quiere que el programa vaya un poco más deprisa, incluya la 
línea 


15 DEFINT A — Z 


El carácter chr$(179) de las líneas 1060, 1090 y 1100 es | (rayita 
vertical). En el listado lo puede sustituir por “|”. 


Guarde el programa en el disco con el nombre de PRIMOS.BAS. 
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2.2 MAXIMO COMUN DIVISOR Y MINIMO 


COMUN MULTIPLO 


Este programa propone tantos ejercicios como se deseen de cálculo 


de máximo común divisor y mínimo común múltiplo de dos números A 
y B. Al final da todas las soluciones. 


Veamos una salida del programa: 


MAXIMO COMUN DIVISOR Y MINIMO COMUN MULTIPLO 


Cuántos ejercicios? 10 


Num. 


Num. 


Num. 


Num. 


Num. 


Num. 


Num. 


Num. 


Num. 
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1 Halla 
e Halla 
3 Halla 
Y Halla 
S Halla 
6 Halla 
7 Halla 
8 Halla 
3 Halla 
10 Halla 


el 


el 


el 


el 


el 


el 


el 


el 


el 


el 


el 


el 


el 


el 


el 


el 


el 


el 


el 


el 


.«C.Mo 


de 


de 


de 


de 


de 


de 


de 


de 


de 


de 


los 


los 


los 


los 


los 


los 


los 


los 


los 


los 


números 


números 


números 


números 


números 


números 


números 


números 


números 


números 


630 y 351 


30 y 728 


32 y 1428 


7 y 280 


66 y 1560 


182 y 1360 


4S y 1347 


864 y 108 


3y 55 


792 y 180 


+*...* S O LUCIONES "ea 


Num. 1 Num. 6 

m.c.d.( 6310 , 351 ) ” 39 m.c.d.( 182 , 1360 3) - 2 
m.c.m.( 630 , 351 ) = 24570 m.c.m.( 182 , 1360 > - 123760 
Num. 2 Num. 7 

m.c.d.( 30 , 728 ) - 2 m.c.d.( 45), 147 ) > 3 
m.c.m.( 30 , 728 > = 10920 m.c.m.( 45), 147 > -= 2205 
Num. 3 Num. B 

m.c.d.( 32, 1428 ) -= 4 m.c.d.( 864 , 108 ) » 108 
m.c.m.( 32, 1428 ) -= 11404 m.c.m.C 864 , 108 ) »= B64 
Num. $4 Num. 39 

m.c.d.( 7 , 280 >) = 7 m.c.d.( 9,5531 
m.c.m.( 7 , 280 ) = 280 m.c.m.( 9, 553) = 495 
Num. S Num. 10 

m.c.d.( 66, 1560 ) - 6 m.c.d.( 792 , 180 ) >» 36 
m.c.m.C 66, 1560 3) = 17160 m.c.m.( 792 , 180 >) - 3960 


El programa utiliza elalgoritmo de Euclides para calcular el m.c.d.: 


10 REM Máximo común divisor y minimo común múltiplo 
ZQ CLS 

30 PRINT "MAXIMO COMUN DIVISOR Y MINIMO COMUN MULTI 
PLO" 

40 FRINT : PRINT : INPUT "Cuántos ejercicios";¡EJ 

50 DIM A(EJ),B(EJ) 

60 FOR K=1 TO EJ 

70 A1i=INT(RND(1)Xx13+1) : B1=INT(RND(1)Xx13+1) 

80 AZ=INT(RND(1)kx13+1) : B2=INT(RND(1)x13+1) 

90 A3J=INT(RND(1)x7)x2+1 : B3=INT(RND(1)Xx10)x2+1 

100 A(K)=A1xXA2xA3 : B(K)=B1XE2XB3 

110 FRINT 

120 FRINT "Num. "¡¿K;TAB(9) "Halla el m.c.d. y el 
m.c.m. de los números ";A(K);"y"5B(K) : PRINT 

130 NEXT K 

140 REM Escritura de las soluciones 

150 PRINT : PRINT 
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150 
170 
180 
190 
200 
210 
220 
230 
240 
250 


30 


PRINT "*xxXxX SOLUCIONES AXXXX" 
FOR K=1 TO EJ 
FRINT FRINT "Num."s¿K : FRINT 


A=A(K) : B=B(K) 

R=A MOD B : IF R<>0 THEN A=B : B=R : GOTO 200 
M=A (K) XB(K)/B 

PRINT "m.c.d.("3A0(K)3","3B(K)3") ="3B 

PRINT "m.com.("3A(K)3","3B(K)3") ="3M 

NEXT K 

END 


Si quiere dar más rapidez al programa, incluya la línea 
15 DEFSNG A-—Z 


Guárdelo en el disco con el nombre de MCDMCM.BAS. 
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FRACCIONES 


3.1 SIMPLIFICACION DE FRACCIONES 


Con este programa el ordenador nos proporciona ejercicios de 
simplificación de fracciones y al final nos da las soluciones. 


Veamos qué pasa cuando ejecutamos el programa: 


SIMPLIFICACION DE FRACCIONES 
Cuántos ejercicios ? 10 


Num. 1 Simplifica la fracción 


Num. 2 Simplifica la fracción 


Num. 3 Simplifica la fracción 


2 


Simplifica 


Simplifica 


Simplifica 


Simplifica 


Simplifica 


Simplifica 


la 


la 


la 


la 


la 


la 


fracción 


fracción 


fracción 


fracción 


fracción 


fracción 


Simplifica la fracción 


botica] SOLUCIONES de de ade 206 ade 


1 


13 


85 


Num. 
4480 


esgus 


827 


6 


8e7 
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En cada ejercicio, el ordenador genera al azar los dos términos de 


P(K 
la fracción 5 como números comprendidos entre 10 y 999. Después 
calcula el máximo común divisor de ambos y los divide por él, para 
simplificar. Sin embargo, en la práctica resulta que la mayor parte de las 
veces, los números P(K) y O(K) son primos entre sí. Si no se modifica 
el programa, apenas saldrán casos de simplificación. 


Una posibilidad es rechazar esas parejas de números primos, hasta 
que resulte una que no lo sea, pero entonces la ejecución del programa 
resulta lenta. 


En el programa se ha optado por aprovechar las parejas de núme- 
ros primos entre sí, para obtener otra fracción multiplicando ambos 
términos por un mismo número aleatorio comprendido entre 1 y 9, con 
lo cual se gana tiempo y se disminuye la probabilidad de que la fracción 
P(K) 


0(K) 


frecuencia números de cuatro cifras. 


sea irreducible. Este cambio hace que aparezcan con cierta 


10 REM Simplificación de fracciones 

20 CLS 

30 RA$=STRING$ (4,176) 

40 PRINT "SIMPLIFICACION DE FRACCIONES" 

SO PRINT : PRINT 

60 INPUT "Cuántos ejercicios "¡EJ 

70 DIM P(EJ),Q1(EJ),R(EJ),S(EJ) 

80 DEF FNC$(X)=RIGHTS ("” "+STR$ (X),4) 

90 FOR K=1 TO EJ 

100 REM Generación de los terminos 

110 P(K)=INT(RND(1)%x990)+10 

120 Q(K)=INT(RNAD(1)*x990)+10 

130 A=P(K) : B=QUM(K) : GOSUB 350 

140 IF B=1 THEN B=INT(RND(1)x9)+1 2: P(K)=P(KIXB : 
Q(K)=0(K)XB 

150 R(K)=P(K)/B : S(K)=0 (K)/B 

150 REM Escritura 

170 PRINT : FRINT : PRINT 

180 PRINT "Num.";K;3 " Simplifica la fracción :" 
190 FRINT 
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200 PRINT FNC$(P (K)) 

210 PRINT RAs+" = * 

220 PRINT FNC$(0(K) ) 

230 NEXT K 

240 REM Escritura de las soluciones 
250 PRINT : PRINT 

260 PRINT "*X%xXx% SOLUCIONES XXXAX" 
270 FOR K=1 TO EJ 

280 PRINT : PRINT 

290 PRINT : PRINT "Num.”"¡K : PRINT 
300 PRINT FNC$(P(K))¡TAB(7) FNCs$(R (K) ) 


310 PRINT RA$+" = "+RA$ 

320 PRINT FNC$(Q(K>);TAB(7) FNCS$(S(K)) 
330 NEXT K 

340 END 


350 REM Subrutinma m.c.d. 
360 R=A MOD B : IF R<>0 THEN A=B : B=R : GOTO 360 
370 RETURN 


La línea 30 también se puede escribir así: 
30 RA$=“—” 
Guarde este programa con el nombre de SIMPLIFI.BAS. 


3.2 OPERACIONES CON FRACCIONES 


Con este programa usted puede disponer de ejercicios de sumar, 
restar, multiplicar y dividir fracciones; todos ellos de una misma opera- 
ción, o variados. Los resultados aparecen en la forma más simplificada. 


Veamos qué ocurre cuando se ejecuta el programa: 


OPERACIONES CON FRACCIONES 


Ejercicios de 


SUMAR 
RESTAR 
MULTIPLICAR 
DIVIDIR 
VARIADOS 


0 + um 
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Elija el número correspondiente 7 5 


Cuántos ejercicios 7 10 


Num. 1 Num. 6 
16 11 20 16 
— XX — = ll xXx — = 
16 2e 10 e 
Num. e Num. 7 
3 13 11 3 
9 4 18 13 
Num. 3 Num. 8 
h] 6 19 12 
— XX — = — + —_ == 
8 20 = 5 
Num. 4 Num. 39 
11 19 7 el 
PAE al a 
2 e 9 6 
Num. S Num. 10 
12 3 19 3 
13 9 16 e 


Num. 


wm SOLUCIONES 3000 ad ate as 


11 


2e 


39 


16 


US 
Pp 
u 


143 


18 13 54 


7 el 49 
6 


18 


Num. 10 
19 3 19 
16 e e4 
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He aquí el programa: 


10 REM Operaciones con fracciones 

20 CELS 

30 PRINT "OFERACIONES CON FRACCIONES" 
40 RA$=STRING$ (2,1796) 

SO PRINT : PRINT 


60 PRINT " Ejercicios de :" : PRINT 
70 PRINT " 1 SUMAR" : FRINT 

80 PRINT " Z RESTAR" : PRINT 

90 FRINT " 3 MULTIPLICAR" : PRINT 
100 PRINT " 4 DIVIDIR” : PRINT 
110 PRINT " S VARIADOS" : PRINT 


120 PRINT 2: PRINT 

130 INPUT "Elija el número correspondiente "¿N 
140 H=N 

150 PRINT : PRINT 

160 INPUT "Cuántos ejercicios ”;EJ 

170 DIM F(EJ),0Q(EJ),R(EJ),S(EJ) ,U(EJ)>,V(EJ),SI$(4 
),N(EJ) 

180 SI$(1)=" + " 2: SI$(2)=" —> " 2: SI$(3)=" x ” 
SI$(4)=" : " 

190 DEF FNC$ (X) =RIGHTS$(STR$ (X),2) 

200 FOR K=1 TO EJ 

210 REM Generación de los terminos 

220 P(K)=INT(RND(1)x22+1) 

230 Q(K)=INT(RND (1)x21+2) 

240 R(K)=INT(RND(1)x22+1) 

250 S(K)=INT(RND(1)*x21+2) 

260 REM Operación correspondiente 

270 1F H=S THEN N=INT(RND(1)x4+1) 2: N(K)=N 
280 IF N=1 THEN U=P(K)xXS(K)+RI(K)XQ(K) 2: V=0(K)XxS(K) 
¿GOTO 320 

290 1F N=2 THEN U=F(K)XS(K)-R(K)XQ(K) 2: V=0(K)xS(K) 
¿GOTO 320 

300 IF N=2 THEN U=P(K)XxR(K) 
310 IF N=4 THEN U=P(K)xS(K) 
320 REM Simplificación 

330 A=U : B=V 


V=Q(K)XS(K) : GOTO 320 
V=0Q (K) KR (K) 
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340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
s10 
520 


R=A MOD B:IF R<>0 THEN A=B : B=R : GOTO 340 


B=ABS(B) : U(K)=U/B : V(K)=V/B 

REM Escritura del ejercicio 

PRINT : PRINT 2: PRINT "Num.";¿K : PRINT 
PRINT FNC$(P(K))+" "+FNOS$ (R(K)) 
PRINT RA$+SI$(N)+RA$+" =" 

PRINT FNC$ (Qí(K))+" "+FNCS$ (S (K)) 

NEXT K 

REM Escritura de las soluciones 

PRINT : PRINT 

PRINT : FRINT : FPRINT "*XxX%XXX SOLUCIONES XXXXAX" 
FOR K=1 TO EJ 

PRINT : PRINT : PRINT "Num."¿K : PRINT 


IF H=5 THEN N=N (K) 

PRINT FNCS(P(K))+" "+FNOS(R(K) +" "¿U(K) 
PRINT RA$+SI$(N)+RA$+" = "+RAS+RAS 

PRINT FNC$(0(K))+" "+FNCO$ (S(K))+" "5 V(K) 
NEXT K 

END 


La línea 40 también se puede escribir así: 


40 RA$=“—” 


Guarde el programa con el nombre de OPERAFRA.BAS. 
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4 


SISTEMAS DE NUMERACION 


4.1 CAMBIO DE BASE 

Se presentan aquí los clásicos ejercicios de cambio de base en los 
sistemas de numeración: dado un número x escrito en base a, escribirlo 
en base b. 

El ordenador elige, para cada ejercicio, la base inicial a y la base 
final b, de entre sendos intervalos [41,42] y [B1,B2], previamente 
fijados por el usuario. Esto da una cierta flexibilidad al programa y, 
además, permite obtener todos los ejercicios con el mismo cambio de 
base, sin más que hacer A1=A42 y B1=B2. 


Veamos cómo funciona el programa: 
SISTEMAS DE NUMERACION 
Cambio de base 


Bases de 2 a 16 

base inicial entre Al y A 
Al , Ae ? 2,8 

base final entre B1 y Be 
B1 , B2 ? 5,10 


Cuántos ejercicios 7 10 


41 


Num. 1 


Pasar el 


Num. e 


Pasar el 


Num. 3 


Pasar el 


Num. 4 


Pasar el 


Num. S 


Pasar el 


Num. 6 


Pasar el 


Num. 7 


Pasar el 


Num. 8 


Pasar el 


Num. 39 


Pasar el 


Num. 10 


Pasar el 


42 


número 


número 


número 


número 


número 


número 


número 


número 


número 


número 


10510, 


caal, 


5331, 


131813., 


y3s2, 


4002, 


13424, 


131101, 


33221, 


12103, 


escrito en base 


escrito en base 


escrito en base 


escrito en base 


escrito en base 


escrito en base 


escrito en base 


escrito en base 


escrito en base 


escrito en base 


6 


8 


6 


6 


7 


5 


y 


6 


4 


a base 


base 


base 


a base 


base 


base 


a base 


a base 


a base 


a base 


8 


6 


10 


d 


5 


8 


3 


7 


6 


3 


e... SOLUCIONES *e... 


Num. 1 


10510 (en base 6 ) » 2712 (en base B ) 


Num. e 


es531 (en base DB 3) »- 10201 (en base 6 ) 


Num. 3 


5351 (en base 6 3) ”- 1219 (en base 10 ) 


Num. 4 


131213 (en base 4 >) >» 12435 (en base 6 ) 


Num. 5 


4352 (en base 6 ) » 2633 (en base 7 ) 


Num. 6 


400e (en base 7 ) = 204944 (en base 5 J) 


Num. 7 


13424 (en base 5 ) >» 2132 (en base B ) 


Num. 8 


131101 (en base 4 ) >= 2511 (en base 39 ) 


33221 (en base 4 >) >» 1332 (en base 39 ) 


Num. 10 


12103 (en base 6 ) >» 5103 (en base 7 J 
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Fijemos ahora la base inicial y la final: 


Bases de 2 a 16 


base inicial entre Al 


Al , Ae ? 2,2 


SISTEMAS DE NUMERACION 


base final entre B1 y Be 


B1 , Be ? 10,10 


Cuántos ejercicios ? 10 


Num. 1 


Pasar el 


Pasar el 


Num. 3 


Pasar el 


Num. Y 


Pasar el 


Pasar el 


Num. 6 


Pasar el 
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número 


número 


número 


número 


número 


número 


10111001010, 


10001101100, 


10001101111, 


10100011101, 


11000110001, 


11100100010, 


y Ae 


Cambio de base 


escrito 


escrito 


escrito 


escrito 


escrito 


escrito 


en 


en 


en 


en 


en 


en 


base 


base 


base 


base 


base 


base 


base 


base 


base 


base 


base 


base 


10 


10 


10 


10 


10 


10 


Num. 7 


Pasar el número 


Pasar el número 


Pasar el número 


Num. 10 


Pasar el número 


»r...rS OLUC 
Num. 1 
10111001010 Cen 
Num. 2 
10001101100 (en 
Num. 3 
10001101111 Cen 
Num. 4 
10100011101 Cen 
Num. 5 
11000110001 Cen 
11100100010 Cen 
Num. 7 
10111100010 Cen 
Num. B 


10101010001 Cen 


10111100010, 


10101010001, 


10110000110, 


11001000000, 


escrito en 


escrito en 


escrito en 


escrito en 


IONES e... 


base e 


base 2 


base 2 ) ” 1135 


base 2.) ” 


base 2 ) ” 


base 2.) > 


base 2.) ” 


base 2 ) - 1361 


11482 


1132 


1309 


1585 


1826 


1506 


Cen base 


(en base 


(en base 


Cen base 


(en base 


Cen base 


(en base 


(en base 


base 


base 


base 


base 


10 


10 


10 


10 


10 


10 


10 


10 


base 


base 


base 


base 


10 


10 


10 


10 
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10110000110 (en base 2 3) >= 141% (en base 10 ) 
Num. 10 


11001000000 (en base 2 ) - 1600 (en base 10 )3 


Este es el programa de ejercicios de cambio de base en los sistemas 


de numeración: 


10 REM Cambio de sistema de numeración 
20 CELS 

30 FRINT TAB(19) "SISTEMAS DE NUMERACION" 
40 PRINT : PRINT 

50 PRINT TAR(31)"Cambio de base” 

60 PRINT : PRINT 


70 PRINT "Bases de 2 a 16" : PRINT : PRINT 


80 DIM CI$(15) 

90 FOR 1=0 TO 15 : READ CI$(1) : NEXT 1 
100 DATA 0,1,2,.3,4,5,6.7,8,79,5,B,C,D,E,F 
110 PRINT "base inicial entre Al y A2" 


FRINT 


120 INPUT "Al , A2 "jA17,A2% : PRINT : PRINT 
PRINT 


140 INPUT "B1 , B2 "3B17,B2Z% : PRINT : PRINT 


130 FRINT "base final entre B1 y B2" mu: 


150 INPUT "Cuántos ejercicios ";jEJ : PRINT 


160 DIM AZ(EJ),B%(EJ),.X7%. (EJ) 
170 FOR K=1 TO EJ 
180 AZ (K)=A17%+RND (1)x (A27-—A17.) 


190 BZ (K)=B17+RND(1)*x (B27-B1%) : IF BY(K)=A7(K) 


THEN GOTO 170 

200 X7.(K)=RND (1) x1000+1000 

210 PRINT "Num.";5K : PRINT 

220 PRINT "Pasar el número "; 

230 ZY%=XYV.(K) 2: NZ=A7%.(K) 2: GOSUB 390 
240 PRINT B$;", escrito en base "¡AZ(K); 
¡BZ (K) 

250 PRINT : PRINT 

260 NEXT K 

270 REM Escritura de las soluciones 
280 PRINT : FRINT 
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a base 


290 PRINT "*xxx*X SOLUCIONES XX£xx" 
300 FOR K=1 TO EJ 

310 PRINT 

320 PRINT "Num."3K : FPRINT 

330 Z/%=X7.(K) NZ=A7.(K) : GOSUB 390 

340 PRINT B$ " (en base"¡A%(K)3") = "; 
350 Z%=XY7.(K) 2: N/=BZ(K) : GOSUB 390 

360 PRINT B$;" (en base"3BZ(K);")" 


370 NEXT K 

380 END 

390 REM Subrutina para pasar a base n 
400 B+%="" 


410 IF Z%>=NZ THEN B$=CI$(Z% MOD NZ)+BS3 : Z/%=ZZ%1N% 
: GOTO 410 

420 B$=CI$ (77.)+B+$ 

430 RETURN 


Guarde el programa con el nombre de CAMBSIST.BAS. 


4.2 SUMAR Y RESTAR EN DISTINTAS BASES 

Con este programa se pueden obtener ejercicios de sumar y restar 
en una base determinada, junto con las soluciones. El programa permite 
elegir todos los ejercicios de la misma clase, por ejemplo, todos de 
sumar, o bien, variados: sumas y restas. 


Funciona así: 


SISTEMAS DE NUMERACION 


Elija la base ( hasta 16 3) 7 8 
Ejercicios de 

1 SUMAR 

2 RESTAR 

3 VARIADOS 
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Elija el número correspondiente 7? 3 


Cuántos ejercicios 7? 10 


Num. 1 Restar en base B Num. 6 Sumar en base 8 
4476 5134 
- 3654 + 1757 
Num. 2 Restar en base B Num. 7 Sumar en base 8 
4365 3735 
- 2361 + 3325 
Num. 3 Sumar en base B Num. B Restar en base B 
4177 3273 
+ 2365 -= 2314 
Num. Y Restar en base 8 Num. 3 Restar en base B 
3122 5272 
- 2637 = 3444 
Num. S Sumar en base 8 Num. 10 Restar en base 8 
5346 4231 


+ 4172 => 1/5e 


*..o SOLUCIONES eo... 


Operaciones en base 8 


Num. 1 Num. e 
4476 4365 
- 3654 - 2361 
62e 2004 
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Num. 


Num. 


Num. 


Num. 


90 


3 Num. 7 
4177 3735 
+ 2365 + 3325 
6564 7262 

y Num. 8 
3122 3273 
- 2637 - 2314 
263 757 

5 Num. 39 
5346 5272 
+ 4172 - 3444 
11540 1626 

6 Num. 10 
5134 4231 
+ 1757 =- 1752 
7113 2257 


Este es el programa. 


REM Sistemas de numeración. Sumas y restas 
CLS 

PRINT "SISTEMAS DE NUMERACION" 

DIM CI$(15),SI$(2),OP$ (2) 


SI$(1)="4+ " : SI$(2)="- " 
OP$(1)="Sumar " : OP$(2)="Restar ” 
RA$=STRINGS$ (15,196) 


FOR 1%=0 TO 15 : READ CI$(1%) : NEXT 1% 
DATA 0,1,2,3,4,5,6,7,8,79:M+B,C,D,E,F 


100 PRINT : PRINT : PRINT 

110 INPUT "Elija la base ( hasta 16 ) ”";¿NZ 
120 PRINT : PRINT 

130 PRINT "Ejercicios de :" : PRINT 
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40 


400 


PRINT 


PRINT ” 1 SUMAR” : PRINT 

PRINT ” 2 RESTAR" : PRINT 

PRINT ” 3 VARIADOS" : PRINT : PRINT : 

INPUT "Elija el número correspondiente "¿M 
H=M 

PRINT : PRINT : INFUT "Cuántos ejercicios ";EJ 


DIM XZ(EJ),YZ(EJ),M(EJ) 

FOR K=1 TO EJ 

IF H=3 THEN M=INT(RND(1)xX2+1) : M(K)=M 
PRINT : PRINT 

FRINT "Num. ";k;0OP$(M);"en base"z¿N% 

X7. (K)=RND (1) *2000+1000 

YY. (K) =RND (1) X£2000+1000 

IF XZ(K)<YZ(K) THEN SWAP XZ(K),YZ(K) 
ZY/=X7.(K) : GOSUB 550 

FRINT 

PRINT TAB(15-LEN(B$))B5$ 

Z//=YZ(K) : GOSUB 553 

B$=SI5% (M)+B3$ 

PRINT TARB(15-LEN(B$))B+% 

FRINT TAB(15-LEN(BS$))LEFTS$(RAS,LEN(B$)) 
NEXT K 

PRINT : PRINT 

PRINT "xxXXXX SOLUCIONES xXxxx" 
PRINT : PRINT "Operaciones en base";¿NZ 
FOR K=1 TO EJ 

IF H=3 THEN M=M(K) 

PRINT 

PRINT "Num.";K 

FRINT 

127=X7(K) : GOSUB 550 

PRINT TAB(15-LEN(B+$))B53 

2/=Y7.(K) : GOSUB 550 

B$=SI$ (M) +B5$ 

PRINT TAB(15-LEN(B%$))B5 

FRINT TAB(15-LEN(B$))LEFTS$(RAS$, LEN(B5$) ) 
IF M=1 THEN ZZ=XZ.(K)+YZ(K) : GOSUB 550 
IF M=2 THEN ZY%=XZ(K)-YZ(K) : GOSUB 550 
FRINT TAR(15-LEN(E$))B5$ 


530 
540 
550 
560 
570 
6 
580 
590 


NEXT K 

END 

REM Subrutinma para pasar a base n 

Bs$="" 

IF Z/%>=NZ THEN B$=C1$(Z% MOD NZ)+BS 2 Z/=ZZ1NZ 
DTO 570 

B$=CI15$ (77.) +B3$ 

RETURN 


La línea 60 se puede escribir así: 
60 RA$="“""  -- ?” 


Guarde el programa con el nombre de OPERSIST.BAS. 


51 


5 


ECUACIONES 


5.1. ECUACIONES LINEALES 


Con este programa se obtienen ejercicios de ecuaciones lineales con 


denominadores, de la forma: 
x+a E ERA e 
f g h i 


Estas ecuaciones siempre tienen solución entera. 


Asi funciona el programa: 
ECUACIONES LINEALES 
Cuántos ejercicios? 10 
Num. 1 Resuelve la ecuación 
x+7 x-5 3x-34 -311 


7 3 6 6 


Num. 2 Resuelve la ecuación 


x+9 x-4 6x-S5 443 


— - — +8x =- + 


E 3 e 6 


Num. 3 Resuelve la ecuación 


x+e x-6 4x-B -14 
— - — +2x = - + 


E: 6 8 3 
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Y Resuelve la ecuación 


x-6 ex-b 331 
-=- — +Bx = - + 
S 9 6 


S Resuelve la ecuación 


x-3 y4x-39 11 
= — +Hx = - + 


3 a 3 


6 Resuelve la ecuación 


x-3 ex-4 -859 
- — +Bx = - * 
2 7 14 


7 Resuelve la ecuación 


x-B ex-2 -65 
= — +3x = - Bd 
Y4 2 y 


B Resuelve la ecuación 


x=3 6x-6 -221 
Es FIX => sE 
2 2 18 


3 Resuelve la ecuación 


*x-2 5x-9 Be 
= — +3x= - + 
6 2 3 


10 Resuelve la ecuación 


x=7 6x-B 797 
=- — +B8x = - + 


3 = 18 


Soluciones de ecuaciones lineales 


Num. 1 X= =7 
Num. e x=-= 6 
Num. 3 x= -E2 
Num. 4 x=-= 6 
Num. 5 x= 1 
Num. 6 x= -B 
Num. 7 x= “5 
Num. B Xx =-—RL 
Num. 39 x<=- Y 
Num. 10 ir 5 


Este es el programa que proporciona los ejercicios de ecuaciones 


lineales: 


10 
20 
30 
40 


70 

80 

90 

100 
110 
120 
130 
140 
150 
150 
A(2 
170 
180 
190 
200 
210 
220 
230 


REM Ecuaciones lineales 
CLS 
FRINT "ECUACIONES LINEALES" : PRINT : PRINT 
R3$=STRING$(3,196) 2: R4$=STRING+$ (4,176) 
INPUT "Cuántos ejercicios";EJ 
DIM X(EJ),A(8),A+(8) 
FOR K=1 TO EJ 
REM Generación de las constantes 
FOR I=1 TO 8 

A(I)=INT(RND (1) x8+2) 

AS (1) =RIGHT$ (STR$(A(1)),1) 

NEXT 1 

REM Generación de la solución 

X (K)=INT(RND (1) x19-9) 

REM Cálculo termino independiente 
Y1=A(4)XA(8)X (X(K)+A(1))-A(2)XA(8)X (Xx (12)-A(3))+ 
RA (A) AA (B)AA (5) XX (K)+A(2) XA (4) Xx (A(6)XX (K)-A(7)) 
Y2=A(2)*xA (4) xA (8) 

A=Y1 : B=Y2 

R=A-BX INT (A/K) 

IF R<2>0 THEN A=B : B=R : GOTO 190 

Yi=Y1/B : IF ABS(Y1)>999 THEN GOTO 90 
Y2=Y2/B : IF ABS(Y2)=1 THEN GOTO 90 

REM Escritura de la ecuación 
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240 FRINT : FRINT : PRINT 
250 PRINT "Num.";K;3"” Resuelve la ecuación :" 
260 FRINT 


270 PRINT"x+"3A$(1)3" x—"3As(3)3” ":Aa$(6 
Ii" 3A5(7)3" "sY1 

280 PRINT R3S$3" -— "¿R3$3" +"5AsS(5)3"x = — "¿R4$; 

" + "5R4$ 

290 FRINT " "¡A$(2)3" "5A$(4)3" ua 
AS(8);" "sYZ 


300 NEXT K 

310 REM Escritura de la solución 

320 PRINT : PRINT : PRINT 

330 PRINT"Soluciones de ecuaciones lineales :" 
340 PRINT : PRINT 

350 FOR K=1 TO EJ 

260 PRINT "Num."¡K3" x= "¡¿X(K) 

370 NEXT K 

80 END 


La línea 30 se puede escribir así: 


30 R35$+“ ”:R45+“ ” 


Grabe el programa en el disco con el nombre de ECUACLIN.BAS. 


5.2 ECUACIONES DE SEGUNDO GRADO 


El programa facilita la obtención de ejercicios de ecuaciones de 
segundo grado con soluciones enteras o fraccionarias. 


Así funciona el programa: 


ECUACIONES DE SEGUNDO GRADO 
Cuántos ejercicios? 10 
Num. 1 Resuelve la ecuación 


e 
8x -2ex+1e = O 


S6 


Num. 2 Resuelve 
e 
6X +5X-21 = O 
Num. 3 Resuelve 
2 
e2x +6X-56 = O 
Num. 4 Resuelve 
e 
6X -14X-340 = O 
Num. S Resuelve 
2 
2X +12X-54 = O 
Num. 6 Resuelve 
e 
2x -X = O 
Num. 7 Resuelve 
2 
6X -32X+42 = O 
Num. 8 Resuelve 
e 
8x +32Xx-18 = O 
Num. 3 Resuelve 


e 
16X +28X-B = O 


la 


la 


la 


la 


la 


la 


la 


la 


ecuación 


ecuación 


ecuación 


ecuación 


ecuación 


ecuación 


ecuación 


ecuación 
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Num. 10 Resuelve la ecuación 


e 
X +5xX-5 = 0 


Soluciones de la ecuación de 2* grado 


Num. 1 X1 = e xl =34/4 
Num. 2 X1l= 3/8 A =2 7 3 
Num. 3 x1 =-7 Ae = 4 
Num. $4 Xi ==5 7 3 x2 = 4 
Num. 5 Xi =-9 148 => 3 
Num. 6 x1 = O xe = 1 / 2 
Num. 7 X1 = 3 E E 
Num. 8 41 ==29 + 2 22 = 12 
Num. 39 Xi =-2 x2 = 1 / 4 
Num. 10 x1 =-6 xX2e = 1 


El programa genera aleatoriamente los términos de las soluciones 
Ri R2 


S1*82 y luego construye la ecuación correspondiente: 
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10 REM Ecuaciones de segundo grado 

20 CLS 

30 PRINT "ECUACIONES DE SEGUNDO GRADD": PRINT 

40 DEFINT A-Z 

50 INPUT "Cuántos ejercicios";zEJ 

60 DIM R1(EJ)>,R2(EJ),S1(EJ),S2(EJ) 

70 FOR K=1 TO EJ 

80 PRINT : PRINT 

90 PRINT "Num.";K3" Resuelve la ecuación :" 2 PRINT 
100 REM Generación de las soluciones 

110 Ri1(K)=INT(RND(1)x19)-9 : Si (K)=INT(RND(1)x19)-9 
120 R2(K)=INT(RND(1)x4)+1 : S2(K)=INT(RND(1)x4)+1 
130 REM Construcción de la ecuación 

140 A=R2(K) k52 (K) 

150 B=- (S2(K)XR1 (K)+51 (K) XR2 (K) ) 

160 C=R1 (K) x51 (K) 

170 IF A=1 THEN A$="X " 

180 IF A=-1 THEN A$="-X " 

190 IF A<-1 OR A>1 THEN A$=STR$(AJ+"X " 

200 IF B=0 THEN Bs$="”" 

210 IF B=1 THEN B$="+X" 

220 IF B=-1 THEN Bs$="-—X" 

230 IF E<-1 THEN BS=STR$(B)+"X" 

230 IF B>1 THEN B$="+"+RIGHTS$(STR$(B), LENC(STRS$ (E) ) 
=1)+"Xx" 

250 IF C=0 THEN Cs$="" 

260 IF C<O THEN C$=STR$(C) 

270 IF C>0 THEN C$="+"+RIGHTS(STR$ (C) , LEN(STR$ (C) ) 
-1) 

280 EX$=SPACES$ (LEN (A$)-1)+"2" 

290 EC$=A$+B$+C$ 

300 REM Escritura de la ecuación 

310 PRINT EX$ 

320 PRINT EC$+" = O" 

330 NEXT K 

340 PRINT : PRINT : FRINT 

350 REM Escritura de las soluciones 

360 PRINT "Soluciones de la ecuación de 2* grado" 
370 PRINT : PRINT 
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460 
470 
480 
5S1 
490 
500 
510 
520 
530 
540 
550 
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FOR K=1 TO EJ 

A=R1(K) : B=R2(K) : GOSUB 530 

R1=R1(K)/B 2: R2=R2(K)/E 

A=S1(K) : B=S2(K) : GOSUB 530 

S1=S1 (K)/B : S2=S2(K) /B 

R1$=STR$(R1) : S1$=STR$(S1) 

IF R2=1 THEN R2$="" ELSE R2$=" /"+STR$(R2) 

IF S2=1 THEN S2%$="" ELSE S2$=" /"+STR$(S52) 

IF Rí=0 THEN RZ$="" 

IF Si=0 THEN S2+4="" 

PRINT"Num. "5K3" X1 ="3R1$;R2$;TAB(30)"X2 =" 
$;52% 

PRINT : PRINT 

NEXT K 

END 

REM Subrutima m.c.d. 

R= A MOD B : IF R<>O0 THEN A=B : B=R : GOTO 530 
B=ABS (B) 

RETURN 


Guarde este programa con el nombre de ECUASEGU.BAS. 
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POLINOMIOS 


6.1 ESCRITURA DE POLINOMIOS 


Un polinomio queda determinado cuando conocemos su grado N y 
los coeficientes CP(N), CP(N—1),....CP(1) y CP(0), con el coeficiente del 
término de mayor grado CP(N) distinto de cero. Así, por ejemplo, N=4 
y CP(4) = —1, CP(3) = 0, CP(2) = 15, CP(1) = —7 y CP(0) = 31, nos da el 
polinomio: 


—X* + 15? —- 7X +31 


La dificultad mayor que se presenta al trabajar con polinomios es 
la de su escritura en la pantalla o en el papel de la impresora, pues la 
impresión de uno de ellos exige dos líneas: una para los exponentes y 
otra para los coeficientes, los signos y las X. Líneas que hay que 
imprimir adecuadamente para que los exponentes caigan en su sitio. 


El polinomio anterior lleva dos líneas de escritura: 


línea de los exponentes : 4 Z 
línea de los coeficientes : —X +15X —7X + 31 


Obsérvese que cuando un coeficiente es 1 ó —1, no aparece el 
símbolo “1”, que si el coeficiente es cero, no aparece el término corres- 
pondiente, y que el signo del coeficiente del término de mayor grado, 
cuando es positivo, no figura. Respecto de los exponentes hay que 
observar que cuando son 1 ó 0 no figuran, que tampoco figuran en el 
caso de que el coeficiente del término sea cero, y, en fin, que los espacios 
entre exponentes dependen del número de cifras de los coeficientes. 


La subrutina que sigue prepara las cosas para poder escribir un 
polinomio en dos líneas con las sentencias: 
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PRINT EPS (escribe la línea de los exponentes) 
PRINT CPS (escribe la línea de los coeficientes) 


1000 REM Subrutina escritura polinomio 

1010 EL$=" " y CP$="" 2 EP$="" 

1020 IF N=0 THEN CF$=STR$(CF(0)) 2: RETURN 

1030 FOR I=0 TO N 

1040 IF CF(1)=0 THEN CF$(I)="" 

1050 NEXT 1 

1060 FOR I=1 TO N-1 

1070 IF CP(1)=1 THEN CP$(1)="+ X " : GOTO 1110 
1080 IF CP(I>)=-1 THEN CP$(1)="- X " 2 GOTO 1110 
1090 IF CP(1)<-1 THEN CP$(1)=STR$(CP(1I))+"X " 2 
GOTO 1110 

1100 IF CP(1)>1 THEN CPS$(1)="+"+RIGHTS (STR$ (CF (1) ) 
, LENISTR$(CP CI) 1 MX A" 

1110 NEXT 1 

1120 IF CP(N)=1 THEN CF$(N)="  X " : GOTO 1150 
1130 IF CP(N>)=-1 THEN CP$(N)="- X " 2: GOTO 1150 
1140 IF CF(N)<>0 THEN CPS$ (N)=STR$ (CP (N))+"X " 
1150 IF CP(0)>0 THEN CP$(0)="+"+RIGHTS$ (STR$(CP (0) ) 
, LEN(STR$ (CP (0)))-1) 

11560 IF CP(0)<0 THEN CP$(0)=STR$(CF(0)) 

1170 IF CP$(1)<>"" THEN CP$(1)=LEFTS*$ (CP$ (1) ¿LEN ( 
CP$(1))-1) 

1180 FOR I=N TO O STEF —1 

1190 CP$=CP$+CP$ (1) 

1200 NEXT 1 

1210 IF N=1 THEN RETURN 

1220 FOR I=N TO 2 STEP -1 

1230 IF CP(I)<>0 THEN EP$=EP$+LEFTS (BL$, LEN(CPS ( 
1))-2)+S5TR5$ (1) 

1240 NEXT 1 

1250 RETURN 


Las entradas de esta subrutina son, por un lado, el grado N del 
polinomio a escribir, y por otro, sus coeficientes CP(N), CP(N—1), ..., 
CP(1), CP(0). Estos valores deben ser proporcionados desde el programa 
principal. La subrutina devuelve el contenido de las variables de cadena 
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EPS (línea de los exponentes) y CP$ (línea de los coeficientes, incluidos 
los signos y las X). 


Desde el programa principal se escribirá el polinomio con las 
instrucciones: 


PRINT EPS: PRINT CPS$ 


Como la subrutina 1000 va a intervenir en varios de los programas 
que siguen, se aconseja vivamente al lector que la teclee y la compruebe 
inmediatamente con este pequeño programa: 


10 REM Frueba de la subrutina 
20 CLS 

30 PRINT "PRUEBA DE LA SUBRUTINA" :«FRINT : PRINT 
40 INPUT "grado "¿N 

50 DIM CP(N)>,CP$ (N) 

60 FOR I=N TO O STEP -1 

70 INPUT CP (1) 

80 NEXT I 

90 GOSUB 1000 

100 PRINT : PRINT 

110 PRINT EP$ : PRINT CF$ 

120 END 


PRUEBA DE LA SUBRUTINA 


grado ? 4 
>1 

0 

15 

=-7 

31 


E] 


y e 
- £ +LSX -7X+31 


Ensaye la escritura de diversos polinomios y compruebe que la 
subrutina cumple todas las exigencias. Corrija los posibles errores y 
guárdela en el disco con 

SAVE“SUBRUTIN.BAS”a 
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En adelante, cuando tenga que escribir un programa que lleve esta 
subrutina, cárguela previamente con 


LOAD“SUBRUTIN.BAS” 
y teclee el resto del programa. 


Otra manera de proceder consiste en escribir primero el programa 
principal, y luego añadir la subrutina 1000 con 


MERGE“SUBRUTIN.BAS” 


6.2 MULTIPLICACION DE POLINOMIOS 


Este programa propone tantos ejercicios como se necesiten de 
multiplicación de dos polinomios A(X) y B(X). Al final proporciona una 
lista con todos los polinomios producto C(K). 


Los grados de A(X) y B(X) varían de un ejercicio a otro, pero 


siempre están comprendidos entre 2 y 4; por tanto, el grado de C(X) 
estará entre 4 y 8. 


Veamos qué ocurre cuando ejecutamos el programa: 


MULTIPLICACION DE POLINOMIOS 


Cuántos ejercicios”? 10 
Num. 1 Multiplica los polinomios : 


y 3 e 
=7X +3X +9X +3 


3 Fa 
-=SX +B8X -7X+2 
Num. 2 Multiplica los polinomios : 


e 
ex +B8X-S 


3 e 
=2X -9X +6X-9 
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Num. 3 Multiplica 


3 e 
6X -3X -7X+1 


4 3 E 
X +*2x =9X + 


Num. 4 Multiplica 


4 3 2 
=BX +BX +7X + X-B 


3 e 
=2X -3X -6X-6 
Num. S Multiplica 


Y 3 e 
=7X +4X +7X + X-6 


e 
-3X -9X+6 


Num. 6 Multiplica 


3 e 
3 -HX + X-=B 


3 = 
YX +9X +4X+5 
Num. 7 Multiplica 


e 
3X +4X+1 


3 e 
-5X -6X +9X+8 


los 


los 


los 


los 


los 


polinomios 


polinomios 


polinomios 


polinomios 


polinomios 
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Num. 8 Multiplica los polinomios 


e 
7X -9X+5 


e 
=3X —8X-6 


Num. 9 Multiplica los polinomios 


e 
-4X —B8X-5 


3 e 
-8X -6X +7X-8 


Num. 10 Multiplica los polinomios 


4 3 a 
9% -BX +9X -<3X-5 


E 
-9X +2X+2 


+e**...* SOLUCIONES More 


Num. 1 


7 6 5 4 3 e 
JA —71X +28BX +37X -72X +12X -P1X+b 


Num. e 


5 4 3 e 
=4X -34X -SOX +75X -102X+45 


Num. 3 


7 6 5 4 3 e 
6X +9X -67X +38X +41X -31X +1B8X-2 


Num. $4 


7 6 5 4 3 y 
12X +6X +4UX —23X -65X -24x +12X+4B 


Num. 5 


6 Ss 4 3 e 
g1X +51X -99X -12X +51X +50X-38 


Num. 6 


6 S ko 3 e 
12X -=5X -S5B6X -Y0X —108X -—27x-90 


Num. 7 


= 4 3 a 
-=15X -38X -2X +54X +41X+8 


Num. 8 


4 3 e 
-53X +25X -15X +*11X-30 


Num. 39 


S y 3 e 
32X +88X +60X +6X +29X+40 


Num. 10 


6 E] 4 3 e 
81X +36X -111X +33X +57X -16X-10 
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He aquí el programa: 


REM Multiplicación de polinomios 
CLS 


30 PRINT "MULTIPLICACION DE FOLINOMIOS" 
40 PRINT : PRINT 

SO DEFINT A-Z 

60 INPUT "Cuántos ejercicios"; EJ 

70 DIM A(8),B(8),CP(8),CP$(8),G(EJ),C(EJ,8) 
80 FOR K=1 TO EJ 

90 PRINT : PRINT 

100 FRINT "Num. "3K;3"Multiplica los polinomios :" 
110 FOR 1=0 TO 4 : ACI)=0 : B(I)=0 : NEXT 1 
120 GA =INT(RND (1)13)+2 

130 FOR I=0 TO GA 

140 A(1)=INT(RND(1)119)-9 

150 NEXT 1 

160 IF A(GA)=0 THEN A(GA)=1 

170 GB=INT(RND(1)x3)+2 

180 FOR I=0 TO GB 

190 B(1)=INT(RND(1)x19)-9 

200 NEXT 1 

210 IF B(GB)=0 THEN B(GB)=1 

220 FOR I=0 TO GA : CP(I)=A(1) : NEXT I 
230 N=GA 

240 GOSUR 1000 

250 FRINT— : PRINT EF$ : FRINT CP$ 

260 FOR I=0 TO GB : CP(I)=BC(1) : NEXT 1 
270 N=GB 

280 GOSUB 1000 

290 PRINT— : PRINT EPS : PRINT CF$ 

300 REM Multiplicación 

310 G(K)=GA+GR 

320 FOR 1=0 TO G(K) 

330 FOR J=0 TO I 

340 C(K, 1>=C(K, 1) +4 (J)*B(1-J) 

350 NEXT J 

360 NEXT 1 

370 NEXT K 


280 REM Escritura de las soluciones 


PRINT : PRINT 


400 PRINT "*xxxxx* SOLUCIONES kxkxxx" 
410 FOR K=1 TO EJ 


420 PRINT— : FRINT. : FRINT "Num."3K 

430 N=G(K) : FOR I=0 TO G(K) : CPC(1I)=C(K,1I) : NEXT 1 
440 GOSUB 1000 

450 FRINT.— : FRINT. : FRINT EP$ : FRINT CP$ 

460 NEXT K 

470 END 

1000 REM Subrutina escritura polinomio 

1010 BL+$=" " 3 CPs$="" : EPs$="" 


1020 IF N=0 THEN CF$=STR$(CP(0)) : RETURN 
1030 FOR I=0 TON 

1040 IF CP(1)=0 THEN CP$(1)="" 

1050 NEXT 1 

1060 FOR I=1 TO N-1 


1070 1F CF(1)=1 THEN CF$(I)="+ X " : GOTO 1110 

1080 IF CP(1)=-1 THEN CP$(1)="- X " : GOTO 1110 
1090 1F CP(1)<-1 THEN CP$(1)=STRS$(CP(I))+4"X " o: 
GOTO 1110 


1100 IF CF(1)>1 THEN CPS$(1)="+"+RIGHTS$ (STR$(CP(1)) 
y LENISTRE(CP(1)))-1)+"X " 

1110 NEXT 1 

1120 IF CP(N)=1 THEN CP$(N)=" — X " : GOTO 1150 
1130 IF CP(N)=-1 THEN CP$(N)="- X " 2: GOTO 1150 
1140 IF CP(N)<>0 THEN CF$(N)=STRS$ (CP (N))+"X " 

1150 IF CF(0)>0 THEN CP$(0) ="+"+*RIGHTS (STR$ (CP (0) ) 
», LEN(STR$ (CP (0)))-1) 

1160 IF CP(0)<0 THEN CP$(0)=STR$(CP (0) > 

1170 1F CP$(1)<>"" THEN CP$ (1)=LEFTS$ (CP%$ (1) ,LEN( 
CP+(1))-1) 

1180 FOR I=N TO O STEP -1 

1190 CP$=CP$+CP$ (1) 

1200 NEXT 1 

1210 IF N=1 THEN RETURN 

1220 FOR I=N TO 2 STEP -1 

1230 IF CP(I)3<>0 THEN EP$=EP$+LEFT% (BL$, LEN(CPS ( 
1))-2)4+STR$(1) 

1240 NEXT 1 

1250 RETURN 
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Compruebe el programa y guárdelo en el disco con el nombre de 
MULTIPOL.BAS. 


6.3 DIVISION DE POLINOMIOS 


Este programa no divide los polinomios, sino que prepara ejercicios 
de división. Para ello elige aleatoriamente el divisor, el cociente y el 
resto, y calcula el dividendo. A continuación escribe el dividendo junto 
con el divisor, y reserva el cociente y el resto para mostrarlos con las 
soluciones. 


Veamos qué pasa cuando ejecutamos el programa: 


DIVISION DE POLINOMIOS 


Cuántos ejercicios? 10 
Num. 1 Divide los polinomios 


5 Me 3 e 
-21X =57X +1EX —11X +EX-11 


3 e 
3X +9X +3 
Num. 2 Divide los polinomios 


5 4 3 e 
EX -9X -—13% +20 +EX=7 


3 2 
6X -9X - X+2 
Num. 3 Divide los polinomios 


6 5 4 3 e 
-9X +76X -79X +43X -65X +29X+6 


3 e 
“GX +UX —EX+?7 
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Num. Y Divide los polinomios 


5 4 3 e 
"EX —26X -47X -3SIX +12X+27 


f=d 
2%. —3X-D 


Num. 5 Divide los polinomios 


6 5 4 3 e 
=$40X +23X -4eX +31X -29X + X+81 


3 e 
BA. +IX —3A-9 


Num. 6 Divide los polinomios 


6 5 4 3 e 
4OX -72X -25X -55X -51X -38X-17 


3 
8X +3x+4 


Num. 7 Divide los polinomios 


4 3 e 
36X +104X +133X +95Xx+22 


a 
=9X -—BX-5 


Num. 8 Divide los polinomios 


4 3 e 
Y5X -6X +3X +B81%X-70 


e 
=SX +34X-B 
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Num. 3 Divide los polinomios 


5 4 3 e 
9X +68X +37X +14X +67X-B 


3 = 
=9X -S5X -2Xx-9 
Num. 10 Divide los polinomios 


6 S 4 3 e 
=7X -28X +75X -22X +41X -30X+18 


3 e 
X +5X -5X+3 


+... SOLUCIONES "ee... 


Num. 1 

e 
Cociente :-7X +2X-2 

e 
Resto : =5X -4X-5 
Num. 2 

e 
Cociente : *x -2 
Resto : -3 
Num. 3 

3 e 
Cociente : X -BX +5X 

e 
Resto : X —-6X+6 
Num. 4 

3 fal 


Cociente : 4X +7X + X-6 


Resto : -9 


Num. S 


3 2 
Cociente SX - X +3X-8 

2 
Resto =5X +4X+9 
Num. 6 

3 e 
Cociente SX -9X -5X-6 
Resto 7 
Num. 7 

2 
Cociente :-4X -BX-S 
Resto 7X-8 
Num. 8 

e 
Cociente :-9X -6X+9 
Resto 2 
Num. 39 

2 
Cociente :- X -7X 

e 
Resto -9X +4X-B 
Num. 10 

3 2 
Cociente :-7X +7X +5X+39 
Resto -9 


Este es el programa: 


10 REM División de polinomios 

20 CLS 

30 FRINT "DIVISION DE POLINOMIOS" 
40 DEFINT A-Z 


50 PRINT : FRINT 

60 INPUT "Cuántos ejercicios”; EJ 

70 DIM D(6),DI (6),6C(EJ),C(EJ, 6) ,GR(EJ)>,R(EJ, 6) 
»CP(6),CP$1(6) 

80 FOR K=1 TO EJ 

90 FOR 1=0 TO 6 : D(I>=0 : DI(1)=0 : NEXT 1 
100 PRINT : FRINT 

110 PRINT "Num. "¿K3"Divide los polinomios :" 
120 FRINT 

130 GD=INT(RND (1) 1x2)+2 

140 FOR I=0 TO GD 

150 D(I)=INT(RND(1)x19)-9 

150 NEXT 1 

170 IF D(GD)=0 THEN D(GD)=1 

180 GC(K)=INT(RND(1)k2)+2 

190 FOR 1=0 TO GC(K) 

200 C(K, I)>=INT(RND(1)x19)-9 

210 NEXT 1 

220 IF C(K,GC(K))=0 THEN C(K,GC(K))=1 

230 GR(K)=INT(RND (1) XxGD) 

240 FOR 1=0 TO GR(K) 

250 R(K, 1)=INT(RND(1)x19)-9 

260 NEXT 1 

270 IF R(K,GR(K))=0 THEN R(K,GR(K))=1 

280 REM Cálculo del dividendo 

290 G=GD+EC (K) 

300 FOR I=0 TO G 

310 DI(I)=0 

320 FOR J=0 TO I 

330 DI (1)=D1 (1)+D(J)>)XC(K, 1-J) 

340 NEXT J 

350 NEXT 1 

360 N=G : FOR 1=0 TO N:CP(1)=D1I (1)+R(K, 1): NEXT 1 
370 GOSUB 1000 

380 PRINT EP$% : FRINT CP$ 

390 N=GD : FOR I=0 TON : CF(I)=D(1) : NEXT 1 
400 GOSUB 1000 

410 PRINT.— : FRINT EF$ : FRINT CPS 

420 NEXT K 
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560 
570 
580 
590 


REM Escritura de las soluciones 
PRINT : PRINT 

FRINT "xXxxxxX SOLUCIONES EXxxx" 
FOR K=1 TO EJ 

PRINT : PRINT : FRINT "Num."3zK 

N=EC (K) 

FOR I=0 TO N : CP(I)=C(K, 1) : NEXT 1 
GOSUB 1000 

FRINT TAB(11) EP$ 

PRINT "Cociente :";TAB(11) CP$ 

N= GR(K) 

FOR 1=0 TO N : CP(1I)=R(K, 1) : NEXT 1 
GOSUE 1000 

PRINT TAB(11) EFS 

PRINT "Resto :";TAB(11) CP$ 

NEXT K 

END 


1000 REM Subrutina escritura polinomio 


1010 
1020 


BL*+=" " = CPs="" 2: EFPs$="" 
IF N=0 THEN CP$=STR$(CP(0)) : RETURN 


1030 FOR I=0 TON 


1040 


IF CP(1)=0 THEN CP$(1)="" 


1050 NEXT I 


1060 FOR I=1 TO N-1 

1070 1F CF(1)=1 THEN CP$(1)="+ X " : GOTO 1110 
1080 IF CP(1)=-1 THEN CP$(I)="- X " : GOTO 1110 
1090 IF CP(1)<-1 THEN CP$(1)=STR$(CP(1))4+"X " : 
GOTO 1110 

1100 IF CP(1)>1 THEN CP$(1)="+"+RIGHTS$ (STR$(CP(1)) 
, LENCSTR$(CP(1)))-1)+"X " 

1110 NEXT 1 

1120 IF CP(N)=1 THEN CPS$(N)="  X " z GOTO 1150 
1130 IF CP(N)=-1 THEN CP$(N)="- X " : GOTO 1150 
1140 IF CP(N)<>0 THEN CP$ (N)=STRS$(CP(N))+"X " 

1150 IF CP(0)>0 THEN CP$(0)="+"+RIGHTS$S(STR$(CP (0) ) 
» LEN(STRS$ (CP (0)))-1) 

1160 IF CP(0)<0 THEN CP$(0)=STR$(CP (0) ) 

1170 IF CP$(1)<>"" THEN CPS$(1)=LEFTS (CP$ (1) ,LEN( 


CP$( 


1))-1) 


1180 FOR I=N TO O STEP -1 

1190 CP$=CP$+CP$(1) 

1200 NEXT 1 

1210 IF N=1 THEN RETURN 

1220 FOR I=N TO 2 STEF -1 

1230 IF CF(1)<>0 THEN EP$=EP$+LEFT$(BL$, LEN(CPG € 
1) )-2)+STR$ (1) 

1240 NEXT I 

1250 RETURN 


Pruebe el programa y grábelo en el disco con el nombre de 
DIVIPOLI.BAS. 


6.4 DIVISION DE RUFFINI 


Este programa propone ejercicios de dividir un polinomio, de grado 
comprendido ente 2 y 5, por un polinomio de la forma x — a. En este 
caso el ordenador sí hace la división. Para ello utiliza el algoritmo de 
Ruffini y conserva, en cada ejercicio, el cociente y el resto, para escribir- 
los entre las soluciones. 


Cuando se ejecuta el programa sale: 


DIVISION POR RUFFINI 


Cuántos ejecicios? 10 
Num. 1 
Divide el polinomio 
4 3 e 
=6X +2X +7X +3 por x+1 
Num. e 
Divide el polinomio 


4 3 2 
=HX -3IX -4X +7X-S por x-4 
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Num. 3 
Divide el polinomio 
4 3 e 
EX PX F+5X =7X-1 por 
Num. $4 
Divide el polinomio 
4 3 e 
-= X +6X +5X -2Xx-6 por 
Num. 5 
Divide el polinomio 


e 
4X +2 por x+4 


Num. 6 
Divide el polinomio 


4 e 


=SX -S5X +5X+6 por x+3 


Num. 7 
Divide el polinomio 


3 E 


X -SX +6X-2 por x-Y 


Num. B 
Divide el polinomio 


4 3 e 
=3X -7X +5X -7X-6 por 


x+1 
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Num. 39 


Divide el polinomio 


e 
e2x -6X+1 por x+1 


Num. 10 


Divide el polinomio 


4 3 e 
X -4X +3X +7X+3 por 


+... SOLUCIONES "oem 


Num. 1 
Cociente 


3 e 
-6X +8X - X+1 


Resto = 2 


Num. e 
Cociente 


3 e 
-—4X -19X -—B0X-313 


Resto =-1257 


Num. 3 
Cociente 


3 e 
=2X -5X +10X-17 


Resto = 16 


Num. $4 
Cociente 
3 2 
= X +4X +13X+24 


Resto = 4e 


Num. 5 
Cociente 


4X-16 
Resto = 66 


Num. 6 
Cociente 


3 e 
-5X +15X -S50X+155 


Resto =-$459 


Num. 7 
Cociente 


e 
X - X+2 


Resto = 6 


Num. 8 
Cociente 


3 e 
=3X -13X <21X-439 


Resto =-104 


Num. 39 
Cociente 


2x-8 
Resto = 39 


Num. 10 
Cociente 


3 e 
XxX =2X — X+5 


Resto = 13 
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10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
(sT 
190 
200 
210 
220 
230 
240 
250 
260 
270 
2890 
290 
300 
310 
320 
330 
340 
350 
100 
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He aquí el programa: 


REM División Ruffini 

CLS 

PRINT "DIVISION POR RUFFINI" : PRINT : FRINT 
INPUT "Cuántos ejecicios”;EJ 

DIM C(EJ,5),R(EJ),N(EJ),CP (5),CC(5) 


FOR K=1 TO EJ 
PRINT : PRINT : PRINT"Num."¿K 
N=INT (RND (1) x4+2) 
FOR J=0 TO N 
CP (J)=INT(RND (1)x15-—7) 
NEXT J 
IF CF(N)=0 THEN CP (N)=2 


A=INT(RND(1)x11)-S : IF A=0 THEN A=-1 

GOSUB 1000 

PRINT : PRINT "Divide el polinomio :" : PRINT 
PRINT EP$ : PRINT CP$; 

PRINT " por xXx"; 

IF A>0 THEN PRINT -—A ELSE PRINT "+";RIGHTS$ 
R$(4),1) 

GOSUB 2000 

N(K)=N-1 : FOR 1=0 TO N(K):C(K, 1)=CC(1):NEXT 1 


R(K)=R 
NEXT K 
REM Escritura de las soluciones 
PRINT : PRINT : PRINT "*XkxxX*x SOLUCIONES XxkXkXX" 
PRINT : FRINT 
FOR K=1 TO EJ 
PRINT "Num. ";K 
N=N (K) 
FOR 1=0 TO NzCP(1)=C(K,1):NEXT 1 : GOSUB 1000 
PRINT "Cociente :" : PRINT 
PRINT EPS$ 
PRINT CP$% : PRINT 
PRINT "Resto =":¿R(K) : PRINT 
NEXT K 
END 
O REM Subrutima escritura polinomio 


1010 BL$=" " o: CP$="" : EP$="" 

1020 IF N=0 THEN CP$=STR$(CF(0)) : RETURN 

1030 FOR I=0 TO N 

1040 IF CP(1)=0 THEN CP$(1)="" 

1050 NEXT I 

1060 FOR I=1 TO N-1 

1070 1F CP(1)=1 THEN CP$(1)="+ X " : GOTO 1110 


1080 IF CP(I)=-1 THEN CP$(1)="- X " : GOTO 1110 
1090 1F CP(1)<-1 THEN CP$(1)=STR$ (CPI) MX "o: 
GOTO 1110 


1100 IF CP(1)>51 THEN CP$(1)="+"+RIGHTS$(STR$(CP (1)) 
, LEN(STRE(CP(1)))-1)+"X " 

1110 NEXT 1 

1120 1F CP(N)=1 THEN CF$(N)="  X " : GOTO 1150 
1130 IF CP(N)=-1 THEN CF$(iN)="- X " : GOTO 1150 
1140 1F CP(N)<>0 THEN CP$ (N)=STRS$ (CP (N))+"X " 
1150 IF CP(0)>0 THEN CP$(0)="+*"+RIGHTS(STR$(CP (0) ) 
s LEN(STR$ (CP (0)))-1) 

1160 IF CP(0)<0 THEN CP$(0)=STR$(CP (0)) 

1170 IF CP$(1)<>"" THEN CP$ (1)=LEFTS (CP$ (1) ,LEN( 
CP$(1))-1) 

1180 FOR I=N TO O STEP -1 

1190 CP$=CP$+CP$(1) 

1200 NEXT I 

1210 IF N=1 THEN RETURN 

1220 FOR I=N TO 2 STEP -1 

1230 IF CP(I)<>0 THEN EP$=EP$+LEFTS$(BL$, LEN(CF$ ( 
1))-—2)+STR$ (1) 

1240 NEXT I 

1250 RETURN 

2000 REM Subrutina Ruffini 

2010 CC (N-1)=CP (N) 

2020 FOR I=N-1 TO 1 STEP -1 

2030 CC(1-1)=CC(1)XA+CP (1) 

2040 NEXT I 

2050 R=CC(0)XxA+CP (0) 

2060 RETURN 


Teclee el programa y guárdelo con el nombre de DIVIRUFF.BAS. 
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6.5 VALOR NUMERICO DE UN POLINOMIO 

Con este programa el ordenador elige al azar un polinomio P(X) y 
un número a, y con el algoritmo de Ruffini calcula P(a). Este valor lo 
reserva para mostrarlo en las soluciones. 


Veamos qué ocurre cuando se pone en marcha el programa: 


VALOR NUMERICO DE UN POLINOMIO 


Cuántos ejecicios? 10 


Num. 1 Calcula el valor numérico del polinomio 


“Y 3 e 
=6X +2X +7X +3 para X=-2 


Num. 2 Calcula el valor numérico del polinomio 


4 3 2 
=$4X -3X -4X +7X-5 para X” 6 


Num. 3 Calcula el valor numérico del polinomio 


4 3 2 
=2X -7X +5X -7X-1 para X” 2 


Num. Y Calcula el valor numérico del polinomio 


4 3 = 
-= X +6X +5X -2X-6 para X” 3 


Num. S Calcula el valor numérico del polinomio 


e 
4x +e para X=--6 


Num. 6 Calcula el valor numérico del polinomio 


Y 2 
=5X -S5X +5X+6 para X”=-S 
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Num. 7 Calcula el valor numérico del polinomio 


3 e 
X -S5X +6X-2 para X” 5 


Num. 8 Calcula el valor numérico del polinomio 


4 3 e 
=3IX -7X +5X -7X-6 para X” e 


Num. 39 Calcula el valor numérico del polinomio 


e 
ex -6X+1 para X”--1 


Num. 10 Calcula el valor numérico del polinomio 


4 3 e 
X -Y4X +3X +7X+3 para X= 3 


me SOLUCIONES 2 06 206 ade ade 


Num. 1 -81 Num. 6 —3269 
Num. e 5939 Num. 7 28 
Num. 3 -B3 Num. 8 10% 
Num. Y 1154 Num. 39 9 
Num. 5S 146 Num. 10 ed 


Este es el programa: 


10 REM Valor numérico de un polinomio 

20 CLS 

30 PRINT "VALOR NUMERICO DE UN POLINOMIO" 
40 PRINT : PRINT 

50 INPUT "Cuántos ejecicios”";EJ 
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60 DIM R(EJ),CP(5),U0C(4) 
70 FOR K=1 TO EJ 

80 N=INT(RND (1) 442) 

90 FOR J=0 TO N 


100 
110 
120 
130 
140 
150 
150 
poli 
170 
180 
190 
200 
z10 
220 
230 
240 
250 
260 
270 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
GOTO 
1100 
. LEN 
1110 
1120 
1130 
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CP (J)=INT(RND (1) x15-7) 

NEXT J 

IF CP(N)=0 THEN CP(N)=1 
A=INT(RND(1)k15)-7 2: IF A=0 THEN A=2 


GOSUB 1000 

PRINT 

PRINT "Num.";3K;"Calcula el valor numérico del 
nomio :” 

PRINT 

PRINT EP$ : PRINT CP$3” para X=";A 

GOSUB 2000 

R(K)=R 

NEXT K 

REM Escritura de las soluciones 


PRINT : PRINT : PRINT "x*xkxxxXx SOLUCIONES XXXXX" 


FOR K=1 TO EJ 
PRINT : PRINT : PRINT "Num.";KkK; TAB(10) R(k) 


NEXT K 

END 

REM Subrutina escritura polinomio 
BL+$=" " 3 CP$="" : EP$="" 


IF N=0 THEN CF$=STR$(CF(0)) : RETURN 


FOR I=0 TO N 

IF CP(1)=0 THEN CP$(1)="" 

NEXT I 

FOR I=1 TO N-1 

IF CP(1)=1 THEN CP$(1)="+ X " : GOTO 1110 
IF CP(I)=-1 THEN CF$(1I)="- X ” : GOTO 1110 


IF CP(1)<-1 THEN CP$(1)=STR$S (CP (1))+"X " 2 
1110 


IF CP(1)>1 THEN CPS$(1)="+"+RIGHTS$(STR$(CF(1)) 
(STR$(CP(1)))-1)4+"X " 

NEXT 1 

IF CP(N)=1 THEN CP$(N)="  X " : GOTO 1150 

IF CP(N)=-1 THEN CP$(N)="- X " 2: GOTO 1150 


1140 IF CP(N)<>0 THEN CP$(N)=STRS(CP(N))+"X " 
1150 IF CP(0)>0 THEN CP$(0)="+"+RIGHT$(STR$(CP (0) ) 
,»LEN(STR$ (CP (0)))-1) 

1160 IF CP(0)<0 THEN CP$(0)=STR$(CP (0) ) 

1170 1F CP$(1)<>"" THEN CP$(1)=LEFTS(CP$ (1) ,LEN( 
CP$(1))-1) 

1180 FOR I=N TO O STEP -1 

1190 CP$=CP$+CP$ (1) 

1200 NEXT 1 

1210 IF N=1 THEN RETURN 

1220 FOR I=N TO 2 STEP -1 

1230 IF CP(I)<>0 THEN EP$=EPS$+LEFTS (BL$, LEN(CP$ ( 
1))-2)+STR$ (1) 

1240 NEXT 1 

1250 RETURN 

2000 REM Subrutina Ruffini 

2010 CC(N-1)=CP (N) 

2020 FOR I=N-1 TO 1 STEP -1 

2030 CC(1-1)=CC(1)xA+CP (1) 

2040 NEXT 1 

2050 R=CC(0)xA+CP (0) 

2060 RETURN 


Guarde este programa con el nombre de VALORPOL.BAS. 


6.6 FACTORIZACION DE POLINOMIOS 


El programa saca al azar cuatro números enteros, comprendidos 
entre —5 y 5, y prepara un polinomio que los tenga como raíces. Al 
final muestra la descomposición en factores de todos los polinomios. 


Vamos: 
FACTORIZACION DE POLINOMIOS 
Cuántos ejercicios”? 10 


Num. 1 
Descomponer en factores el polinomio 


4 3 e 
X -11X +42X -68X +40 
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Num. e 
Descomponer en factores 


4 3 e 

=2X +2X +42X -2X -40 

Num. 3 

Descomponer en factores 
4 e 

=X +15X +10X -24 

Num. Y 

Descomponer en factores 
y 3 e 

=X -7X +9X +115X +100 


Num. 5 
Descomponer en factores 


+ 3 e 
-X -X +18X +16X -32 
Num. 6 
Descomponer en factores 
4 3 e 
2x +6X -2e2Xx -6X +20 
Num. 7 
Descomponer en factores 
4 3 e 
=X +5X +10X -BOX +96 
Num. 8 


Descomponer en factores 


4 3 e 
ex +18X +36X -6%X -1928 
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el 


el 


el 


el 


el 


el 


el 


polinomio 


polinomio 


polinomio 


polinomio 


polinomio 


polinomio 


polinomio 


Num. 39 
Descomponer en factores el polinomio 


Y 3 2 
-X +2X +16X -2x -15 
Num. 10 


Descomponer en factores el polinomio 


4 3 a 
2X +6Xx -52X -96X +320 


**....'o SOLUCIONES "inem 


Num. 1 EE y 21 A E 
Num. e PEA EMI EXP ERAS 
Num. 3 =(XAFBICAFI ICALI EXI 
Num. $4 =(X+5)(0X-4)(0X+5)C0X+1) 
Num. 5 =(X-1)C0X+4)CX+2)C0X-94) 
Num. 6 PX EXI CASI CA 10 
Num. 7 (X=) UX+Y EX2I UM 
Num. 8 2oxX+4)(0X-2)C0X+4)C0X+3) 
Num. 3 =(X+1)C0X-5)CX+3)(X-1) 
Num. 10 2oOX-2)C0X+4)C0X+5)C0X-4) 


Este es el programa que lo realiza: 


10 REM Factorizar polinomios 

20 CLS 

30 FRINT "FACTORIZACION DE POLINOMIOS" : PRINT 
40 N=4 

50 INPUT "Cuántos ejercicios”":¡EJ 

60 DIM R(4),RA(EJ,4),A(EJ) 


70 FOR K=1 TO EJ 
80 A=INT(RND(1)x5)-2 : IF A=0 THEN A=-1 
90 FOR I=1 TO 4 


100 
110 
120 
130 
140 


R(1I)=INT(RND(1)x11)-S : IF R(1)=0 THEN R(1)=2 
NEXT I 

CP (4) =A 

CP (3) =-(R(1)+R(2)+R(ZIAFHR IMA 

CPF (2)=(R (1) AR (2) +4R(1) AR (3) +4R(1)xAR(4)+ROZ)AREZ 


IFR (2) AR (4)+RIOZIARIIII RA 


150 


CP(1)=-(R(1I)AROZ)ARCOZ) ARCO) RR CZ) AR (4)AR(1I) ARE 


3)FR(4)+RIOZIARUZI)AR (4 IIA 


1650 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 


CP(0)=R(1)ARCOZIRAKUOZI)AR CAI RA 

FOR I=1 TO 4 : RA(K, 1)=K(1) : NEXT I:A(K)=A 
GOSUB 1000 

PRINT : PRINT : PRINT "Num."¿K 

PRINT "Descomponer en factores el polinomio" 
PRINT 

PRINT EP$ : PRINT CF$ 

NEXT K 

REM Soluciones 

FPRINT : PRINT 

PRINT "xXxxxx SOLUCIONES Xkxkxx" 

FOR K=1 TO EJ 

FOR I=1 TO 4 

IF RA(K,1)>0 THEN R*$(1)=STR$(-RA(K, 1)) ELSE 


R$(1)="+"+RIGHTS$(STR$(RA(K, 1)),1) 


300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 


NEXT 1 

PRINT : PRINT "Num. ";K;z" Es 

IF A(K)=1 THEN FRINT " "3; : GOTO 350 
IF A(K)=-1 THEN PRINT " -"3 : GOTO 350 
PRINT STR$C(A(E));5 


FOR 1=1 TO 4 
PRINT "(X"¿R$S(1)53")"; 
NEXT 1 

FRINT 

NEXT k 

END 


1000 REM Subrutinma escritura polinomio 
1010 BL+$=" "a CP$="" 1 EP$="" 
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1020 IF N=0 THEN CP$=STR$(CP(0)) : RETURN 

1030 FOR I=0 TON 

1040 IF CP(1)=0 THEN CP$(1I)="" 

1050 NEXT 1 

1060 FOR I=1 TO N-1 

1070 1F CP(1)=1 THEN CP$(1)="+ X " : GOTO 1110 
1080 IF CP(I)=-1 THEN CP$(1)="-— X " : GOTO 1110 
1090 IF CP(1)<-1 THEN CPF$(1)=STRS(CP(DDI "MX "o: 
GOTO 1110 

1100 IF CF(1)>1 THEN CP$(1)="+"+RIGHT$(STRS(CF (1)) 
, LEN(STRS(CPC(1I)))-1I4 "Xx " 

1110 NEXT 1 

1120 IF CP(N>)=1 THEN CP$(N)="" X " : GOTO 1150 
1130 IF CP(N)=-1 THEN CP$(N)="— X " : GOTO 1150 
1140 IF CP(N>)<>0 THEN CP$(N)=STR$(CP(N)3+"X " 
1150 IF CF(0)>0 THEN CP$(0)="+*"+RIGHTS$(STR$(CF(0)) 
s LENISTR$(CP(0)))-1) 

1160 IF CP(0)<0 THEN CP$(0)=STR$(CF(0)) 

1170 IF CP$(1)<>"" THEN CP$(1)=LEFTS(CF$(1) ,LEN( 
CP$(1))-1) 

1180 FOR I=N TO O STEP -1 

1190 CF$=CP$+CF$ (1) 

1200 NEXT 1 

1210 IF N=1 THEN RETURN 

1220 FOR I=N TO 2 STEF -1 

1230 IF CPC(1)<>0 THEN EP$=EPS+LEFTS (BL$, LEN(CPS ( 
1))-2)+STR$(1) 

1240 NEXT 1 

1250 RETURN 


Guarde este programa con el nombre de FACTOPOL.BAS. 


6.7 ECUACIONES DE CUARTO GRADO 
CON RAICES ENTERAS 


Con este programa el ordenador elige al azar cuatro números 
enteros, comprendidos entre —5 y 5, y prepara un polinomio P(X) de 
cuarto grado que los tenga como raíces. 
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En el enunciado de cada ejercicio se exhibe la ecuación P(X) = 0 y, 
al final, las cuatro soluciones de cada ejercicio. 


En una ejecución del programa, resulta: 


ECUACIONES CON RAICES ENTERAS 


Cuántos ejercicios? 10 


Num. 1 
Hallar las soluciones de la ecuación: 


4 3 e 
A =S£ FOX -20Xx += 0 


Num. e 
Hallar las soluciones de la ecuación: 


Y 3 2 
X +2X -9X -2X +8 = O 


Num. 3 
Hallar las soluciones de la ecuación: 


E 3 e 
Xx +4X -19X -106X -120 = O 


Num. Y 
Hallar las soluciones de la ecuación: 


4 3 e 
XK -2kX -11xX +12% +=uUy 


Num. S 
Hallar las soluciones de la ecuación: 


4 3 e 
X +7X -9X -115X -100 = O 
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Num. 6 
Hallar las soluciones de 


y 3 e 
X +5X +2X -BxX = 0 


Num. 7 
Hallar las soluciones de 


4 3 Pd 
XA =9X +22 -38 = 0 


Num. 8 
Hallar las soluciones de 
y 3 2 
X + X -17X +15X =»= 0 


Num. 39 
Hallar las soluciones de 


E 3 = 
X =94X -16X +*B%X = 0 


Num. 10 
Hallar las soluciones de 


4 3 y 
X +11X +40X +48X = O 


la 


la 


la 


la 


la 


ecuación: 


ecuación: 


ecuacion: 


ecuación: 


ecuación: 


xoor SOLUCIONES rex 


Num. 1 R1= 2 Re= 2 


Num. e R1= 2 


Num. 3 


Re=-4 


R1=-4 Re= 5 


R3= 0 


R3=-1 


R3=-3 


Ru= 5 


Rú4= 1 


Ri=-2 


1 


Num. 4 R1=-3 Re= 4 R3-= 1 rR4= 0 


Num. 5 R1=-S Re= Y RI=-5 Ry=-1 


Num. 6 R1= O Re= 1 RI=-4 Rú=-2 
Num. 7 Rl= 4 Re= 4 R3=-1 Ru= 2 
Num. 8 R1=-S Re= 1 R3= 0 Ryu= 3 


Num. 3 R1=-4 Re= O R3= 4 rRu= Y 


Num. 10 Ri=-3 Re= O R3=-4 Rú=-3 
Este es el programa: 


10 REM Ecuaciones de cuarto grado 

20 CLS 

30 FRINT "ECUACIONES CON RAICES ENTERAS" : PRINT 

40 DEFINT A-Z 

SO N=4 

60 INFUT "Cuántos ejercicios";jEJ 

70 DIM R(4),RA(EJ, 4) ,A(EJ),CP(4),CP+$(4) 

80 FOR K=1 TO EJ 

90 FOR I=1 TO 4 : RCI)=INT(RND(1)3x11)-S : NEXT 1 

100 CP(4)=1 

110 CF (3)=-(R(1)4+R(2)+4R(3)4+4R(4)) 

120 CF(2)=(R(1I)AR(2)4R (1) ARC3)4R(1)kR(4)4+4R(2)XkR (3 
ERC) AR (4)+R03)xR(4)) 

130 CPF(1)=-(RCU1)AR(Z)AR(OSIA RC) ARIZA (4H RCA RE 
3) AR (40)4ROZI)AROZ)AR(4)) 

140 CF(0)=R(1)AROZIARCZIIAR (4) 

150 FOR I=1 TO 4 : RA(K, I)=k(1)> : NEXT I 

160 GOSUE 1000 

170 PRINT : PRINT : FRINT "Num.";K 

180 PRINT "Hallar las soluciones de la ecuación:” 
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190 FRINT 

200 PRINT EP$% : FRINT CF3$;" = 0” 

210 NEXT K 

220 REM Soluciones 

230 PRINT : FRINT 

240 FRINT "*x*xxxx SOLUCIONES Xkxkxx" 
250 FOR E=1 TO EJ 

260 FRINT : FRINT 


270 FRINT "Num."¿K;z" R1i="¡RA(K,1)3" R2="¡RA(K 
213” R3="¿RA(K, 333" R4="¿RA(K, 4) 

280 NEXT K 

290 END 

1000 REM Subrutima escritura polinomio 

1010 BEL+$=" "o 1 CP$="" 1 EPRS$="" 


1020 IF N=0 THEN CP$=STR$(CP(0)) : RETURN 

1030 FOR I=0 TO N 

1040 IF CF(1)=0 THEN CP$(I>)="" 

1050 NEXT I 

1060 FOR I=i TO N-1 

1070 1F CF(1)=1 THEN CF$(1)="+ X " : GOTO 1110 
1080 IF CF(1)=-1 THEN CF$(1I)="- X " 2: GOTO 1110 
1090 IF CF(1)<-1 THEN CF$(1)=STR$(CPCI))4"X "o: 
GOTO 1110 

1100 1F CP(1)>1 THEN CF$(1)="+"+RIGHTS (STR$(CP(1)) 
, LENCSTRE (CE C(1)))-1)4"X " 

1110 NEXT 1 

1120 IF CF(N)=1 THEN CP$(N)=" — X " : GOTO 1150 
1130 IF CP(N)=-1 THEN CP$(M)="- X " 2: GOTO 1150 
1140 IF CP(N)<>0 THEN CF%(N)=STR$ (CPI DIR "X " 
1150 IF CF(0)>0 THEN CF$(0)="+"+RIGHTS$(STR$(CF(0)) 
s LENISTES$(CP(0)))-1) 

11560. IF CF(0)<O0 THEN CFS$(0)=STR$(CF(0)) 

1170 1F CP$(1)<>"" THEN CF$(1)=LEFTS(CP$ (1) ,LEN( 
CF$(1))-1) 

1180 FOR I=N TO O STEP -1i 


Guarde este programa con el nombre de ECUACUAR.BAS. 
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6.8 OPERACIONES CON FRACCIONES ALGEBRAICAS 

Con este programa se obtienen ejercicios de restar fracciones 
algebraicas, en las que los polinomios denominadores se pueden des- 
componer fácilmente en factores y, por tanto, calcular sin mucho trabajo 
el mínimo común denominador. 

Las soluciones se dan en dos versiones: con el denominador des- 


compuesto en factores y con las operaciones efectuadas. Veamos cómo 
funciona: 


FRACCIONES ALGEBRAICAS 


Cuántos ejercicios ? 10 


Num. 1 Calcula 


Num. 2 Calcula 


-=3X x-4 -2X+2 


e e 
2-1 X +2X+1 Xx+1 


Num. 3 Calcula 


X Xx-1 0-3 


A Y X +4Xx+4 4x+8 
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Num. 4 


XxX 


a 
X -16 


Num. S 


Num. 8 


Calcula 
X-1 -3X+1 
e 
X +8X+16 = X-4 
Calcula 
x-2 -4X-1 
e 
*X -6X+9 3X-39 
Calcula 
Xx-1 3X-3 
2 
X -2X+1 2x-2 
Calcula 
X+3 -2X+1 
e 
X +6X+9 X+3 
Calcula 
X-3 2Xx+3 
e 


X -B8X+16 -3x+12 
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Num. 93 Calcula 


-4X Xx+2 X+4 


Xx -16 X +8X+16 3X+12 
Num. 10 Calcula 


X Xx+1 £A-=2 


e = 
Ai A —2X+1 YX +1 


wa...” SOLUCIONES "ww 


Num. 1 
3 2 3 e 
X -9X +8X+28 X -9X +8X+28 
2 3 2 
e2tx+2)(x-2) ex -4X -8X+16 
Num. e 
3 2 3 e 
-= X -6X +3X-2 = X -6X +3X-2 
2 3 e 
(x-1)3(x+1) X + X - X-1 
Num. 3 
3 e 3 2 
8X +7X -4X-20 BX +7X -4X-20 
e 3 e 
4(x-2)(x+2) 4X +8X -16X-32 


Num. $4 


3 2 
ex -4X -S53X+20 


2 
=(x-4)C(x+4) 


Num. S 


3 e 
X +7X -39X+9 


Ta 
INMFIICA DI 


Num. 6 


3 e 
-11X +9X +3X-1 


e 
etx+13Cx-1) 


Num. 7 


3 E 


-= X -11X -18X+18 


e 
Cx-3)(x+3) 


Num. 8 


3 e 


=5X +12X +35X+18 


= 
330x440) (x-4) 


a y 


ex -4X -S53X+20 


3 a 


-= X -4X +16X+64 


3 2 
X +7X -39X+9 


3 e 
3X —9X -27X+81 


3 e 


“11X +9X IX-1 


3 e 
ex -2X -2Xx+2 


3 2 
-= X -11X -18X+18 


3 = 
X +3X -9X-27 


3 e 
-=5X +12eX +35X+18e 


3 e 
-=3X +12X +48X-192 
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Num. 39 


3 e 3 e 
-13X -S5X +22X+88 -13X -55X +22X+88 
= 3 e 
IRA ARES JA F12X —98X-192 
Num. 10 
3 e 3 cz 
=6X +10X +10X+2 =6X +10X +10X+2 
e 3 a 
=“ROXFLICI-1I EX +HUX HH 


Este es el programa para obtener ejercicios de fracciones algebrai- 
cas: 


10 REM Fracciones algebraicas 

20 CLS 

3O PRINT "FRACCIONES ALGEBRAICAS" 

40 DEFINT A-Z 

50 RA$=STRING+$ (15,176) 

60 PRINT : FRINT : INPUT "Cuántos ejercicios "¡EJ 
70 DIM C(6),CP(3),CN(EJ,3),CD(EJ,2) 

80 REM Escritura de los enunciados 

90 FOR K=1 TO EJ 

100 FOR I=1i TO 6 

110 C(I)=INT(RND(1)x9)-4 : 1F C(I)=0 THEN C(1)=1 
120 NEXT I 

130 IF C(5)=C(2)*xC(3) THEN C(5)=C(5)+1 

140 IF C(5)=0 THEN C(5)=1 

150 PRINT : FRINT : PRINT 

1560 PRINT "Num."5K5" Calcula :" : PRINT 

170 N=2 : CP(2)=C(3) : CP(1)=0 : CP(0)=0 5 
GOSUB 1000 

180 El$=EP$% : Pi$=CP$ 

190 N=1 : CP(1)=1 : CP(0)=-C(4) : GOSUB 1000 
200 F2$=CF$ 

210 N=1 : CP(1)=C(5) : CPF(0)=-C(6) : GOSUB 1000 
220 P3$=CP+% 
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230 FRINT TAB(2)E1$ 

240 PRINT TAB (2)F1%;TAB(11)P2%$; TAB (22)P3%$ 

250 FRINT LEFTS(RA$,7)+" — "+LEFTS(RA$,8)+" — " 
+LEFTS(RA$,S)+" = " 

260 N=2 : CF(2)=1 : CP(1)=0 : CP(0)=-C(1)xC(1): 
GOSUB 1000 

270 El$=EF% : Fi$=CP$ 

280 N=2 : CP(2)=1 : CP(1)=-2xC(1) 2: CP0)=C(1)*C(1 
) : GOSUB 1000 

290 E2$=EPS% : P2%$=CF+$ 

300 N=1 2: CP(1)=C(2) : CP0)=-C(2)XC(1) : 

GOSUE 1000 

310 F3$=CF+$ 

320 FRINT El$;TAB(9)E2$ 

330 PRINT PF1%;TAB(9)P2$; TAB(22)PI3% 


340 CN(K, 3)=C (2) XC (3) -C (5) 
3590 CN(K, 2) =-C(1)xC(2)*xC(3)-C(2)+C(6) 
360 ECN (K, 1)=-C(1)*XC1(2)+C0(2)XC(4)+C(1)C(1)XC (3) 


370 CN(K,0)=C(1)xC (2) *C(4)-C(6)xC(1)xC(1) 

380 CD(K,1)=C(1):CD(K,2)=C (2) 

390 NEXT K 

400 FRINT : FRINT : FRINT "*xxxXxxx SOLUCIONES *XxXXxXx" 
410 FOR K=1 TO EJ 

420 N=3 : FOR I1I=0 TO 3 : CP(1)=CN(K, 1) : NEXT 1 
430 GOSUB 1000 

440 FRINT : PRINT : FRINT "Num."¿K : PRINT 

450 FRINT EF$;TAR(19)EP$ 

4560 FRINT CF$;TAB(19)CF+ 

470 PRINT RA$+" = "; 

4390 FRINT TAB(19)RA$ 

490 A$=MID$(STR$*(CD(K,1)),2,1) 


S00 B$=STR$(CD(K,2)) 2 1F B$="-1" THEN Bs="-" 
510 IF B$=" 1" THEN Bé$=" " 

520 Si$="+" : S2%="-" 

530 IF CD(K,1)<0 THEN SWAP S1$,S52$ 

540 PS=BS+" (x"+SIBAOGEM) (a MAS2G AGA)" 

550 N=3 2 CP(3)=C0D(K,2) 2 CP(2)=-CD(K, 1)*CD(K, 2) 
560 CP(1)=-CD(K, 1) XCD(K, 1)XCD(K,2) 2 CP(0)=CD(K,1) 


“3ZKCD(K, 2) 


z 
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570 GOSUB 1000 

580 FRINT TAE (2) SPACES$ (LEN(P$))+"2"; TAB(19)EFPS$ 
590 FRINT TAB(2)P$; TAB(19)CFs$ 

600 NEXT K 


610 END 
1000 REM Subrutinma escritura polinomio 
1010 BLs+$=" "3 CPs="" : EP$="" 


1020 IF N=0 THEN CF$=STR$(CP(0)) : RETURN 

1030 FOR I=0 TO N 

1040 IF CF(I)=0 THEN CF$(I)="" 

1050 NEXT I 

1060 FOR I=1 TO N-1 

1070 IF CP(1)=1 THEN CF$(1)="+ X " : GOTO 1110 
1080 IF CP(1)=-1 THEN CP$(1)="- X " : GOTO 1110 
1090 IF CP(1)<-1 THEN CF%$(1)=STR$(CP(1))4+"X " : 
GOTO 1110 

1100 IF CP(1)>1 THEN CF$(1)="+"+RIGHTS (STR$ (CP (1) ) 
. LENCSTRS(CPC(1)))-1)+"X " 

1110 NEXT 1 

1120 IF CP(N)>=1 THEN CF$(N)=" Xx " : GOTO 1150 
1130 IF CP(N)=-1 THEN CP$(N)="- X " 2: GOTO 1150 
1140 IF CP(N)x<>30 THEN CF%(N)=STR$ (CF(NDI+"X " 
1150 IF CF(0)>0 THEN CP$(0)="+"4+RIGHTS$(STR$E(CP (0) ) 
s LENCSTRS$ (CF (0)))-1) 

1160 IF CP(0)<0 THEN CF$(0)=STR$(CF (0) ) 

1170 IF CF$(1)<>"" THEN CF$(1)=LEFTS$ (CP$ (1), ,LEN( 
CFP$(1))-1) 

1180 FOR I=N TO O STEP -1 

1190 CP$=CP$+CP$ (1) 

1200 NEXT 1 

1210 IF N=1 THEN RETURN 

1220 FOR I=N TO 2 STEP -1 

1230 IF CP(I)<>0 THEN EP$=EP$+LEFTS(BL+*, LEN(CFS ( 
1))-2)+STR$ (1) 

1240 NEXT I 

1250 RETURN 


Guarde el programa en el disco con el nombre de 
FRACALGE.BAS. 
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DETERMINANTES 
Y SISTEMAS 


7.1 DETERMINANTES 


El ordenador pregunta primero por el orden de las matrices que se 
van a manejar y luego por el número de ejercicios que se desean. 


Veamos qué ocurre cuando se ejecuta el programa: 


Determinantes de orden ? 2 


Cuántos ejercicios ? 6 


Num. 1 Num. Y 
3 12 =-7 -—2 
12 16 | -8 -e2 | 
Num. 2 Num. S 
11 16 4 -S 
14 20 | 1 1 | 
Num. 3 Num. 6 
-5 -6 1 e 
=4 =4$4 -2 10) 


Soluciones de los determinantes 


Num. 1 det = O Num. 4 det =-2 
Num. 2 det =-4 Num. S det = 1 
Num. 3 det =-4 Num. 6 det 


Il 
He 


101 


Determinantes de 


orden T? $4 


Cuántos ejercicios T? 6 


Num. 1 

e 19 -2 1 

7 -15 2 1 

B —4 2 1 

5 1 1 1 
Num. e 

-9 -9 26 31 

1 -3 4 S 

0] 4 —+4 -S 

-3 1 1 1 
Num. 3 

=7 3 -2 -1 

39 23 2 7 

-=-6 -14 -2 -S 

=3. =9 =1  —-3 

Soluciones 


Num. 1 det =-3 
Num. e det 
Num. 3 det 


Determinantes de 


orden ? 10 


Cuántos ejercicios T? 3 


Num. 1 


4 
-4 


Num. 4 
=-7 3 
21 25 
10 -12 
11 -15 

Num. 5 
-7 (15 
=-7 RS 
4 0 
3 3 

Num. 6 
26 3 

-11 -23 
6 -2 
S 3 


1,3 4 
11 E: 
1 -=E 

Y e] 
7. —4 
37 8 
5 O 
=11 e 
a 
e 


PPUPU0rPYP PP PA 


PO0ODH 


de los determinantes 


Num. $4 det 
Num. 5 det 
Num. 6 det 


Num. 3 

30 15-12 -3-2e el e] 3 18 23 
33 27-14 33 10 11 —4 7 2 3 
24 16 -16 23 -4 13 -2 5 10 13 
-1 21 -1 23 4 15 -2 1 o -1 
36 10 -30 -10 -20 17 Y 1 18 23 
17 27 -25 3 -7 15 -8 S 1e 15 
30 32 -39% 16 -2 18 -—$4 S 1e 15 
23 15 -33 -15 -27 21 -1 1 20 25 
4 e 6 —Y4 -6 4 o) O y S 
3 3-9 -7 -39 5 -1 1 7 9 


Soluciones de los determinantes 


Num. 1 det = 
Num. e det = 
Num. 3 det =- 


El orden de las matrices está limitado únicamente por las dimensio- 
nes de la pantalla o del papel de la impresora. 


En realidad existe una limitación teórica, pero que en la práctica no 
se presenta, y es la debida a la línea 330 del programa que es la que 
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escribe los elementos de la matriz. Pues bien, para que haya una perfecta 
alineación de los elementos, se escriben siempre los tres últimos caracte- 
res (incluido el signo), completando con espacios, si tuviera menos. De 
modo que para los números de dos cifras no habrá problema, ni para 
los positivos de tres cifras; pero un número negativo de tres cifras, como 
— 123, aparecerá externamente escrito como 123, y por tanto, el determi- 
nante de la matriz presentada no coincidirá con el valor del determinan- 
te dado en la solución. 


Afortunadamente el lector no debe preocuparse por esta limitación. 
En la práctica podrá obtener, si lo desea, determinantes de matrices 
cuadradas de orden 20, ... ¡con solución garantizada! 


No se piense que el ordenador calcula realmente el valor de los 
determinantes. Nada de eso: los prepara para que tengan un valor 
prefijado. Veamos cómo lo hace: 


El algoritmo para preparar matrices con determinantes de valor 
prefijado está basado en las siguientes ideas: 


1. El determinante de un producto de matrices es el producto de 
los determinantes: 


det(A.B)=det(A).det(B) 


2. El determinante de una matriz triangular es el producto de los 
elementos de la diagonal principal. 


Veamos, con un ejemplo, cómo se “fabrica” una matriz C de 
orden 3, cuyo determinante queremos que valga $: 


1 1 3 5 00 15 -—10 3 

A E =d- LD 2 —2 1 

oO 9 1 y 01 3 3 1 
A B C 


La matriz A es triangular, con “unos” en la diagonal principal, por 
tanto, su determinante vale 1. La B también es triangular y tiene “unos” 
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en la diagonal principal, excepto en la posición (1,1), que tiene precisa- 
mente un 5; su determinante valdrá 5. En consecuencia, el determinante 
de C valdrá 1x5=S. 


Los elementos que están por encima de la diagonal principal en A y 
por debajo en B, que son irrelevantes a efectos del valor del determinan- 
te de C, son importantes porque serán los que hagan variar el “aspecto 
final” de la matriz C. Estos números han de cumplir ciertas condiciones: 
no ser muy grandes, para que los elementos de C tampoco lo sean; no 
ser nulos, porque si no aparecen muchos ceros en C; y, por supuesto, ser 
aleatorios. 


Finalmente, observemos que «este algoritmo conserva la última 
columna de A y la última fila de B. Para evitar esto, la matriz C, que 
finalmente se utiliza, es la que resulta de cambiar la última columna por 
la suma de ella con la penúltima y, después, la última fila por la suma de 
ella con la anterior. Con todos estos cambios el determinante se conser- 
va: 


135 AD 3 15 —10 —7 15 —10 —7 
C=|2 2 1l>=|2 2 1|>|2 2 -1]=C€ 
3. —3 1 3 3 2 5 —=3 —3 


Este es el programa que prepara ejercicios de determinantes: 


10 REM Determinantes 

20 CLS 

3O DEFINT A-Z 

40 INPUT "Determinantes de orden "¿N : FRINT 
50 INFUT "Cuántos ejercicios ";EJ 

60 DIM X(EJ)>,A(N,N)>,B(N,N)>,C(N,N)> 

70 REM Generación de la matriz 

80 FOR I=1 TON «:¿ A(1,I)=1 : E(1,1)=1:NEXT 1 
90 FOR K=i TO EJ 

100 FOR I=1 TO N-1 

110 FOR J=1+1 TON 

120 A(1,3)=INT(RND (1) 5) x2-3 

130 B(J, 1)=INT(RND (1) 5) x2-3 

140 NEXT J 

150 NEXT 1 
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160 X(K)=INT(RND(1)x11-5) 
170 B(1,1)=X(K) 

180 FOR I=1 TON 

190 FOR J=1 TO N 

200 C(1,J)=0 

210 FOR L =1 TO MN 

220 C(1,J)=C(1,J)+A(1,L)XB(L,J) 
230 NEXT L 


240 NEXT J 

250 NEXT 1 

260 FOR lI=1 TON : CC(I,N>=C(1,N)+C(1,N-4) : NEXT 1 
270 FOR J=1 TON : C(N,J)=C(N,J)+C(N-1,3) : NEXT J 


280 REM Escritura de la matriz 

290 FPRINT : FRINT : PRINT "Num.";K : PRINT 
300 FOR I=1 TO N 

210 PRINT CHR$(179); 

320 FOR J=1 TON 

330 PRINT RIGHTS(" "+STR$(C(1,3)),3)33" "; 
340 NEXT J 

350 PRINT CHR+$(179) 

360 NEXT I 

370 NEXT K 

380 REM Escritura de la solución 

390 PRINT : PRINT 

400 FRINT "Soluciones de los determinantes” : PRINT 
410 FOR K=1 TO EJ 

420 FRINT "Num."¡K;3 " det =";X(K) 

430 NEXT K 

440 END 


En las líneas 310 y 350 figura CHR$(179), que es la rayita vertical. Si 


su ordenador tiene esa rayita como carácter gráfico, puede sustituir 
CHR$(179) por “|”. 


Conserve este programa en el disco con el nombre de 
DETERMIN.BAS. 


7.2 SISTEMAS DE ECUACIONES LINEALES 


Este programa presenta tantos sistemas de ecuaciones como se 
deseen. Todos los sistemas son determinados y tienen el mismo número 
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de ecuaciones que de incognitas. Este número no puede ser superior a 6, 
pero es muy sencillo superar este límite: basta añadir más incógnitas en 


la línea 80 del programa. 


Veamos qué pasa cuando se ejecuta el programa: 


Sistemas de cuántas ecuaciones ? 3 


Cuántos ejercicios ? 10 


Num. 1 
10x 


10x - By 
13x -11ly 


Num. e 


Num. 3 


-9x +14y 
=4x + Yu 
=7x + 7y 


- 5z 


+ 
N 


AA 


-11z 
+21Z2 
+25Z 


-11z 
+21z 
+25Z 


+19z 
+ 5Z 
+ 9z 


=3Ix - 4y 


+ 


+ 


3z 


3z 


3z 
72 
3z 


N 


72 


39 


oh 
Pp 
pp 


13 


MAA 
[00] 
HE 


IN] 
u 
o 
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Num. 


Num. 


Num. 


Num. 


Num. 


Y 


a 


seem SOLUCIONES rr 


(1 ,-3 
(3 ,-4 
c2,$4 
(c0,-3 
(-3 ,4 


Probemos otra vez: 


Num. 


Num. 


Sistemas de cuántas ecuaciones 7 Y 


Cuántos ejercicios ” 10 


++ +1 
ru 
N 


u 


++ 1+ 
c 
TN 


Num. 


-18x 


=14x 


u 


+++ 


+++ 


+++ 
ru 
N 


+ 


4z 


2z 
4z 


+++ 1 


¿+41 
y 
É 


+13u 
+ 7u 
+ Su 


Su 
3u 
7u 
9u 


+++ 


+ 3u 
+ Su 
+13u 
+17u 


IAEA 


J 
mWUmRanm o 
N UY 
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*..... SOLUCIONES oe ole as 
Num. 1. C4,1,0,-4) 


Num. E O a O + 


Num. (3,4 ,3,4) 


Num. (2,1,0,34) 


Num. (4.2. 0,4 3 


Num. 


a 
a 
E 
5 

Num. 6 (-1 ,-3 ,4 ,4 ) 
Ed 
Num. 8 
9 


Num. 


Num. 10 (3 ,-4 ,1,1) 


El programa no resuelve sistemas, sino que los prepara eligiendo al 
azar la matriz C de los coeficientes y la solución, y calculando posterior- 
mente los términos independientes. Con el algoritmo del programa de 
determinantes construye la matriz C de determinante no nulo; de esta 
manera asegura que el sistema propuesto sea determinado. 


10 REM Sistemas de ecuaciones lineales 

20 DEFINT A-Z 

30 CLS 

40 INPUT "Sistemas de cuántas ecuaciones ";N 

50 PRINT : INPUT "Cuántos ejercicios "¡EJ 

60 FRINT.— : FRINT 

70 DIM A(N,N),B(N.WD,C(N,N),C$S(N,N),X(EJ,N),L$(N) 
, D(N) 

80 DATA x,y.Z Us, V,09W 

90 REM Generación de la matriz de los coeficientes 
100 FOR I=1 TO N 

110 A(1,1l)=1 : B(1I,I)=1 : READ L$(1) 

120 NEXT I 

150 FOR K=1 TO EJ 

140 FOR I=i TO N-1 
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150 FOR J=1+1 TOM 
160 ACI, J)=INT(RND(1)x5) 2-3 
170 E(J,1)=INT(RND(1)x4)*x2-3 
180 NEXT J 

190 NEXT 1 

200 B(1,1)=INT(RND(1)x3)+3 

210 FOR I=1 TOM 

220 FOR J=1 TO MN 

230 C(1,J)=0 

240 FOR T=1 TO N 

250 C(1,3)=C(1,J)+A(I,T)XB(T,J) 
260 NEXT T 

270 NEXT J 

280 NEXT 1 

290 FOR I=1 TOM 
300 FOR J=1 TOM 
310 FOR J=1 TOM 
320 X(K,J)=INT(RND(1)£9)-4 
330 NEXT J 


C(1,N)=C(1,N)+C(1,N-1) 
C(N,J)=C(N, J)+C(N-1, 3) 


NEXT I 
NEXT J 


540 REM Cálculo de los terminos independientes 


60 D(I)=0 
370 FOR J=1 TON 
380 D(I)=D(1)+C(1,J)XX(K,J) 
390 NEXT J 
400 NEXT 1 


350 FOR I=i TON 
3 
E 


410 REM Freparación para la escritura 


ZO FOR I=1i TON 
30 1F C(1,1)=1 THEN C$(1,1)=" 
440 IF C(I,1)=-1 THEN C$(1,1)=" 


"+1$(1) 
—"+L$(1) 


450 IF C(1,1)>39 OR C(1,1)<-9 THEN C$(1,1)=STR$(C(I 


s1))+L$(1) : GOTO 480 


460 IF C(1,1)>1 OR C(1,1)<-1 THEN C$(1,1)=" " + 


STR$(C(1,1))+L$(1) 

470 IF C(1,1)=0 THEN C$(1,1)="” 
480 NEXT 1 

490 FOR I=1 TO N 

500 FOR J=2 TON 

510 IF C(1,J)=1 THEN C$(1,J)="+ 


"+L$ (3) 
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520 IF C(1,3)=-1 THEN C$(1,J)="- "+L$(J) 

530 IF C(1,3)>9 THEN C$(1,3)="+"+RIGHTS(STR$ (C (1 
.J)),2)+L$(J) : GOTO 580 

540 IF C(1,3)<-9 THEN C$(1,J)="-"+RIGHTS(STR$(C ( 
1,3)),2)+L$(J) : GOTO 380 

550 IF C(1,J3)>1 THEN C$(1,J)="+"+STR$(C(1,J))+L$ 
(3) 

560 IF C(1,J3)<-1 THEN C$(1,J3)="- "+RIGHTS(STR$ (EC 
(1,3)),1)+L$(J) 

570 1F C(1,J)=0 THEN C$(1,J)=" a 

580 NEXT J 


590 NEXT 1 
600 REM Escritura del sistema 
610 PRINT.— : PRINT "Num. ”"¿K : PRINT 


620 FOR I=1i TO N 

630 FOR J=1 TO N 

640 PRINT C$(1,.J)+" "; 

650 NEXT J 

660 PRINT "="3D(1) 

670 NEXT I 

£80 PRINT 

690 NEXT K 

700 REM Escritura de la solución 
710 PRINT : PRINT 

720 PRINT "XXXXX SOLUCIONES XXXXxXx" 
730 FOR K=1 TO EJ 

740 PRINT : FRINT "Num."3K3" ("; 
750 FOR J=1 TO N-1 

760 PRINT X(K,J)3","s 

770 NEXT J 

780 FRINT X(K.,ND3")" 

790 NEXT K 

800 END 


Guarde este programa con el nombre de SISTEMAS.BAS. 
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S 


ESTADISTICA 


8.1 DISTRIBUCION NORMAL 


Presentamos aquí un programa muy flexible para simular distribu- 
ciones normales, que permite escoger el número de ejercicios, el número 
de datos de cada ejercicio y los intervalos de los que se obtienen 
aleatoriamente la media y la desviación típica de cada distribución. Para 
que los resultados salgan bien colocados en forma de tabla, es necesario 
elegir también el número de cifras enteras y decimales de los datos. 


Imagínese que necesita cuatro ejercicios que simulen las calificacio- 
nes otorgadas por un profesor, que aprecie hasta las décimas de punto. 


Suponiendo que usted conoce que la media de ese profesor suele 
variar entre 4 y 5, y que la desviación típica varía entre 1 y 2, puede 
ejecutar el programa así: 


DISTRIBUCION NORMAL 


Número de ejercicios? $4 
Número de datos en cada ejercicio ( 50 ú 100 3? SO 
Media aleatoriamente comprendida entre M1 y Me 


M1 , M2 ? 4,5 
Desv. tip. aleatoriamente comprendida entre D1 y D2 


D1 , De ? 1,2 
Número de cifras enteras (1 


e Ena 
Número de cifras decimales CO 1 


, 


405.037? e(*) 
2 3? 1 


(*) Hay que prever la posibilidad de que el ordenador genere notas de dos cifras enteras, como 10.0, 
por ejemplo. 
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Num. 


VdMONODOMAQM 
FNSIFDINUNNA 


ro000oonuin» 
DMALUUAREINS 


NOUANMVORMO 
FAFOUNDIIWONS 


NRoDdus+inuno 
NMOANNNSUNW 


VbMnMOTSMO +IN 
SINFMONS+U0 


Num. 


UNU-+00D0 3 
SOIMOOIDOMIAS 


A7AUMOANRODOAD 
ONUUOSFINDON+ 


VUVDO+?UNNASUI 
AOANNVOUNIO 


VDNVO+s+NMDNO 
NOVINFMFIVM 


NONXMANNROVUNO 
DNIFIFDIDIOSRM 


Num. 


NNODNODNTFON 
N+unN+0+ +3 


UOMONDLVVAA 
NUNUNNINOIN 


O0AaNN0NN+=MmmM 
NOAONINIEA 


DO+FUNDONAN 
VUOFNFAMINN 


NOVDNRNONODW 


SOUMIINMINSO 


Num. 


on y 
mun 
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5.1 3.2 8.4 58 4,0 
6.1 2.0 8.1 3 5.3 
3503 4.8 nz 6.1 6.8 
pde: 5.8 6.8 1.7 8.0 
7.3 6.2 0.7 6.7 5.6 
5.9 2.0 22 7.9 4.4 
1.9 3.6 0.0 5.1 4,0 


Num. 1 MEDIA= 4.7 DESVU.TIP.- 1.7 
Num. e MEDIA= 4.6 DESU.TIP.” 1.1 
Num. 3 MEDIA= 4.9 DESV.TIP.>= 1.5 
Num. $4 MEDIA= 34.8 DESVU.TIP.”- 1.8 


Si usted quiere que todos los ejercicios tengan la misma media y 
desviación típica, por ejemplo M=5 y D=1, no tiene más que reducir 
los respectivos intervalos a un punto: 


DISTRIBUECETON NORMAL 


Número de ejercicios”? $4 
Número de datos en cada ejercicio (€ 50 6 100 37? 50 
Media aleatoriamente comprendida entre M1 y Me 


M1, M2 ? 5,5 
Desv. típ. aleatoriamente comprendida entre Di y De 


0Y , Ue + 1,2 


Número de cifras enteras (1, 2,3,$4065)78e 
Número de cifras decimales (0, 1'6Re2 37? 1 
Num. 1 
4.9 4.5 5.0 4.3 4.9 
4.8 2.6 3.2 3.2 5.3 
5.5 3.3 4.6 6.1 4.6 
4.8 Te 6.2 4.0 4.4 
4.4 6.5 6.5 3.3 4.6 
6.0 e S.5 5.1 6.8 
6.5 4.9 5.B 4.9 3.9 
4.6 3.8 6.2 5.S 6.5 
6.0 5.7 53 3.7 6.5 
5.5 3.4 S.1 6.2 6.5 
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Num. 


VRATw0OnmOoON 
SIDONIA 


+mM+inmmno3+mno 
ONVOONFUFNIN 


NOMFTOFRNUNO 
DEFFIOINMDAIMOL 


NO++RO00vuamn 
NDIOFINFMIN0S 


ANUADONUINDNUN 
0.1mMmN0Mm+73+—03+—0M 


Num. 


NONOAADRNON 0 
NIDIFNARNA 


UWODNARDONAINN 
NONDOUFNO+0 


+S0MN6OsuUnmSsiw0w0 
NONFONINFIIA 


OURAÑMONROn 
DUSDNUNOAI 


ouUmonurn oo. 
NOS 


Num. 


VNUAUNIAOSOw 
OSOINDVWNIS 


DMNOVIJNRNDNnNU 
SINUNINOVUN 


NODRONoOANiom 
NIANMNAUNU 


NNUAIAFOND+M 
DONIONINNNS 


OJdtnAAAUDOs iS 
FONDO 


DESU.TIP.= 
DESU,TIP,= 
DESU.TIP.= 
DESVU.TIP.= 


5.0 
5.0 
5.0 
5.0 


MEDIA= 
MEDIA 
MEDIA= 
MEDIA= 


1 
E 
3 
4 


Num. 
Num. 
Num. 
Num. 
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He aquí el programa que genera distribuciones normales: 


10 REM Distribución normal 
20 CLS 


ZO FRINT "DISTRIBUCION NORMAL" 
40 DEFSNG A-Z 

50 PRINT : PRINT 

50 INPUT "Número de ejercicios";EJZ 

70 DIM M(EJZ)>,D(EJZ) 

B0 U$(O0)="" 2: USC(II="4" 1 USC(2ZI="GHE" UCI = AA" 
¿o UB(4)="HRHRUO UB)" HRS 

90 PRINT : INPUT "Número de datos en cada ejercic 
io (506 100 )”;DAZ% 

100 FRINT.  : FRINT "Media aleatoriamente comprendid 
aentre M1 y M2" : FRINT 

110 INPUT "Mi , M2 ";M1,M2 

120 FRINT  : FRINT "Desviación típica aleatoriamen 
te comprendida entre Di y D2" : PRINT 

130 INFUT "Di , D2 "¡D1,D2 

140 FPRINT : INPUT "Número de cifras enteras (1 , 2 
.s5 a BÓS3)9"50E2 

150 FRINT : INPUT "Número de cifras decimales (0 
s» 162 3"35CDZ 

150 US=U$ (CEZ)+". "+U$ (CD%) 

170 REZ=10"CD% : DEF FN RED(Z)=INT(REZAZ+.5)/REZ 
180 FOR K%=1 TO EJZ 

190 FRINT  : FRINT  : FRINT "Num."¿K% : FRINT 

200 MC(K%)=M1+(M2-M1)XRND(1) 2: MC(KZ)=FN RED(M(EZ)) 
210 D(K%)=D1+(D2-Di1)XRND(1) : D(EKZ)=FN RED(D(KZ)) 
220 FOR IZ=1 TO DAZ/S : FOR J%=1 TO 5 

Zi0 GOSUB 320 

240 X=M(K7)+D(EZ)XxZ 

250 PRINT USING U$;¿Xz : FRINT "  *; 

260 NEXT J% : FPRINT : NEXT IZ 

270 NEXT KZ 

280 FPRINT : FRINT 

290 FOR K%=1 TO EJZ 

ZOO FRINT "Num."5EZ3"  MEDIA=";:FRINT USING U$;¿M( 
EZ): PRINT " DESV.TIF.=";:PRINT USING U$;¿D(HKZ) 
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310 NEXT KZ 

¿20 END 

330 REM Subrutina N(0,1) 
340 S5=0 

350 FOR HZ%=1 TO 12 

260 S=S+RND (1) 

370 NEXT HZ 

380 Z=S-6 

¿290 RETURN 


Guárdelo con el nombre de DISNORMA.BAS. 


El corazón del programa es la subrutina 330, que proporciona 
valores Z de la distribución estándar N(0,1), que la línea 240 se encarga 
de transformar en números X, distribuidos normalmente N(M(K %), 
D(K%)). 


Debe quedar claro que el programa anterior no calcula ni la media 
ni la desviación típica de cada ejercicio, sino que, cada vez, prepara una 
distribución “que tenga” la media y la desviación prefijadas. Por tanto, 
la media y desviación típica reales, las que tiene que calcular el alumno, 
no tienen por qué coincidir exactamente con las ofrecidas en la solución. 
Sin embargo, podemos esperar que el error sea razonablemente peque- 
ño. Para que el lector pueda comprobar esto, y decidir por sí mismo el 
grado de confianza que le merece el programa DISNORMA.BAS, 
hemos preparado el programa TESTSIMU.BAS que genera 100 datos 
con media y desviación elegidas por el usuario y calcula efectivamente la 
media y desviación típica de la distribución generada, de modo que se 
puedan comparar ambas parejas de números. Veamos cómo funciona: 


Media , Desv.tip. ? 5,1 
Media = 5.09 Desv.tip. ”»- 1.02 


Media 
Media 


Desv.tip. ? 5,1 
4.398 Desv.tip. ”- 0.97 


l- 


Media Desv.tip. ? 5,1 
Media 4,91 Desv.tip. ”= 0.91 


Media Desv.tip. ? 5,1 
Media 5 .2l Desv.tip. »= 1.1e 
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Media , Desv.tip. 7? 5,1 
Media = $4.98 Desv.tip. = 0.394 


Media Desv.tip. T 5,1 
Media 4.395 Desv.tip. = 1.03 


il = 


Observe que para la media, el error cometido es del orden del 5 % 
(en algún caso puede llegar hasta el 10 %). El error cometido con el caso 
de la desviación típica es mayor, entorno al 10 % (en algún caso puede 
llegar hasta el 20 %). Estas observaciones habrán de tenerse en cuenta a 
la hora de calificar las soluciones dadas por los alumnos. 


10 REM Test simulación distribución normal 
20 CLS 

3O INFUT "Media , Desv.tip.";¿M,D 
40 SX=0 : XX=0 

50 FOR I=1 TO 100 

60 GOSUB 150 

70 X=M+DXxZ 

80 SX=SX+X 2 XX=XX+XXxX 

90 NEXT 1 

100 M=SX/100 : D=SQR(XX/100-—MXM) 
110 PRINT "Media = "3 INT(MX100+.5)/100;" Desv. 
tip. = "; INT(Dx100+.5)/100 

120 PRINT 

130 GOTO 30 

140 END 

150 REM Subrutina N(0,1) 

1650 S=0 

170 FOR H=1 TO 12 

180 S=S+RND (1) 

190 NEXT H 

200 Z=S-6 

210 RETURN 


Guarde este programa con el nombre de TESTSIMU.BAS. 
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8.2 DISTRIBUCION BIDIMENSIONAL 


Es posible simular una distribución bidimensional (X, Y), de modo que 
ambas variables estadísticas se distribuyan normalmente, con media y 
desviación típica prefijadas, y con coeficiente de correlación también 
prefijado. 


El programa DISTRIBI.BAS genera tantos ejercicios, como necesi- 
temos, de distribuciones bidimensionales, y ofrece al final, como solu- 
ción, la media y desviación de ambas variables, así como el' coeficiente 
de correlación. 


Supongamos que se necesitan ocho ejercicios de la distribución 
PESO/TALLA (peso en kg, talla, en cm). Podemos proceder así: 


DISTRIBUCION BIDIMENSIONAL NORMAL 


Número de ejercicios?” 8 
Número de datos en cada ejercicio ( 20 6 50 >)? 20 
Media de las x comprendida entre MX1 y MX2 


MX1 , MX2 ? 60,70 
Desv. típ. de las x comprendida entre DX1 y DX2 


DxX1 , DX2 ? 10,15 
Media de las Y comprendida entre MY1 y  MY2 


mMY1 , MY2 ? 160,170 
Desv. típ. de las Y comprendida entre DY1 y DY2 


DYi , DY2 ? 10,20 
Coeficiente de correlación comprendido entre R1 Y 


R1 , Re”? 0.8,0.9 
Número de cifras enteras (1 


¡213 ,%05 373 
Número de cifras decimales C O 


¡16230 


120 


Re 


163 
167 


164 
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+...” SOLUCIONES ron. 


Num. 1 

MEDIA de las X 
MEDIA de las Y 
Coeficiente de 


Num. e 

MEDIA de las X 
MEDIA de las Y 
Coeficiente de 


Num. 3 

MEDIA de las X 
MEDIA de las Y 
Coeficiente de 


Num. $4 

MEDIA de las X 
MEDIA de las Y 
Coeficiente de 


Num. 5 

MEDIA de las X 
MEDIA de las Y 
Coeficiente de 


Num. 6 

MEDIA de las X 
MEDIA de las Y 
Coeficiente de 


Num. 7 

MEDIA de las X 
MEDIA de las Y 
Coeficiente de 


Num. 8 

MEDIA de las X 
MEDIA de las Y 
Coeficiente de 
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= 67 DESU 
=165 DESU 
correlación 
= 64 DESU 
=169 DESU 
correlación 
= 61 DESU 
=163 DESU 
correlación 
= 69 -.DESU 
=161 DESU 
correlación 
= 65 DESU 
=160 DESU 
correlación 
= 64 DESU. 
=16e DESU. 
correlación 
= 70 DESU. 
=168 DESU., 
correlación 
= 64 DESU. 
=16568 DESU, 
correlación 


«TIP. de 
¿TIP. de 
= .B6 


.TIP. de 
«TIP. de 
= ¿BS 


«TIP. de 
«TIP. de 


las 
las 


las 
las 


las 
las 


las 
las 


las 
las 


las 
las 


las 
las 


las 
las 


13 
JO] 


13 


13 


= 15 


= 13 


13 


= 13 


16 


15 
16 


11 


= 15 


=-.18 


13 


10 REM Distribución bidimensional normal 

20 CLS 

30 FRINT "DISTRIBUCION BIDIMENSIONAL NORMAL" 

40 DEFSNG A-Z 

50 FRINT : FRINT 

60 INPUT "Número de ejercicios" ;¡EJZ 

70 DIM MX(EJ%),DX(EJZ), MY (EJZ7), DY (EJZ),.R(EJZ) 

80 US£(O)="" 2: USC(1II="4" 2: US(2I="HR" : USCII="H$R" 
2 UB (4) ="HRRH US (O) RRA 

20 PRINT.— : INPUT "Número de datos en cada ejercic 
io (1 20 6 50 )";¡DAZ 

100 FRINT.— : FRINT "Media de las x comprendida 
entre MX1' y MX2" : FRINT 

110 INFUT "MxX1 , MX2 "¿M1,M2 

120 FRINT : FRINT "Desv. tip. de las x comprendida 
entre DXi y DX2" : FRINT 

130 INFUT "DX1 , DX2 ";D1,D2 

140 FRINT.— : FRINT "Media de las Y comprendida 
entre MY1' y MY2" : FRINT 

150 INFUT "MY1 , MYZ "3M3,M4 

150 PRINT : FRINT "Desv. tip. de las Y comprendida 
entre DYi y DY2" : PRINT 

170 INPUT "DY1 , DYZ2 ";Dx,D4 

180 FRINT : FRINT "Coeficiente de correlación com 
prendido entre R1 Y R2" 2: PRINT 

190 INPUT "Rí1í , R2";R1,R2 

200 PRINMT : INPUT "Número de cifras enteras (1 , 

2 43,4405.)"CEZ 


210 FPRINT : INFUT "Número de cifras decimales (c0 
s 162 )>)";CDZ 

220 U$=U3 (CE/)+"."+U$(CDZ) 

230 REZ=10"*CD% : DEF FN RED(Z)=INT(REZXZ+.5)/REZ 
240 FOR KZ=1 TO EJZ 


250 PRINT— : FRINT. : FRINT "Num."¿KZ 2: PRINT 


260 MX (E%)=M1+(M2-M1)XRND(1) 2 MXC(EZ)=FN RED(MX (K7%)) 
270 DX(KZ)=D1+(D2-D1)XRND(1) : DX(KZ)=FN RED(DX (K7%)) 
280 MY (E£7)=M3+ (M4-M3) XRND(1) : MY(KZ)=FN RED(MY (K7)) 
290 DY (KZ%)=D3+ (D4-D3)4RND(1) : DY(KZ)=FN RED(DY (KZ) ) 
300 R(KZ)=R1+(R2-K1)XRND (1) 
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410 FOR IY%=1 TO DA 
O GOSUB 550 

330 Z1=Z 

340 GOSUB 550 

350 Z2= 

360 X=MX(KZ)+DX(K7%)*xZ1 

370 Y=MY (KZ) +DY (K7) Xx (R(KZ)XZ1+SQR (1—K ( 


380 FPRINT USING U*¿Xz 2 FRINT "o "zo: 


390 NEXT 1% 

400 NEXT KZ 

410 FRINT : FRINT 

420 REM Escritura de las soluciones 


EVIXRIEZIIK 


FRINT USING 


430 FRINT "*xxxxXxX SOLUCIONES XXXxx" 


440 FPRINT : FRINT 

450 FOR E%=1 TO EJ% 

460 FRINT "Num. "¿EZ 

470 FRINT "MEDIA de las X ="3 : FRINT 


480 FRINT " DESV.TIF. de las X ="3 : 
U$S; DX (KZ) 

490 FRINT "MEDIA de las Y ="3 : FRINT 
EZ)O> 

500 PRINT " DESV.TIF. de las Y ="3 : 
U$S;DY(KZX) 

S10 FRINT "Coeficiente de correlación 
x100+.5)/100 

520 FPRINT 

530 NEXT KZ 

540 END 

REM Subrutina N(0,1) 

S=0 

FOR HY/=1 TO 12 

S=S+RND (1) 

NEXT HZ 

Z=S-6 

RETURN 


cn ca cm ca cn 
ooo 


o 
SCS 10030 sn 
[e] 


O 


[e] 


y 


Do" 
a 
o 


USING US¿MxX( 


FRINT USING 


USING US; MY ( 


FRINT USING 


="3 INT (CR (K7%) 


Guarde este programa con el nombre de DISTRIBI.BAS. 
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9 


RESOLUCION 
DE TRIANGULOS 


9.1 TRIANGULOS RECTANGULOS 


Cada ejercicio de este programa propone la resolución de cuatro 
casos de triángulos rectángulos ABC (4 = 907). 


El lector puede obtener tantos ejercicios como desee ejecutando el 
programa: 


TRIANGULOS RECTAÁGULOS 


Cuántos ejercicios? 10 


Num. 1 Resuelve los triángulos rectángulos 


B 

1-1) b= 7 c= 6 NN) 
1.2) a= 6 b= 3 ad/ic 

1.3) c= 7 = 2B” Aoi 

1.4) a= S B= 42” ai 
Cb A 


Num. 2 Resuelve los triángulos rectángulos 


B 

2.1) b= Y c= 7 Fi 
2.2) a= 5 b= 4 a/ic 

2:53) c- 5 B= 51? 1 1 

2.4) a= 6 B= 38* Lo 
CbA 
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Num. 


Num. 


Num. 


Num. 


Num. 
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o Yu uyu 


dun uy 


07 


N YN y 


3 Resuelve 


HE 


Do0V0O 
Mon 


on 


¿Em 


Resuelve 


DOvoO 
mon 
DO*000 


Io 


Resuelve 


v000 
IA 
ODA 


Resuelve 


DOoDO 
Ion 
No 0n 


Resuelve 


00065 
Mol 


DNA. 


los triángulos rectángulos 


B 
UN 


IAN 


00uUT0 
IN] 


00..<xtvc0n 


IAN 


00U0 


Num. 8 Resuelve los triángulos rectángulos 


B 

8.1) b= 7 c=5 A] 
8.2) a=7 b=$4 a/ ic 

8.3) c=8 B=u45” Ai 

8.4) a=5 B=$+41” 1 
CbA 


Num. 39 Resuelve los triángulos rectángulos 


B 

3,1) b= 7 c=6 / 
9,2) a=6 b=3 a/ic 

39.3) c= 8 B= 30* 2 ci 

9.4) a=5 B=R26* /__i 
Cb Á 


Num. 10 Resuelve los triángulos rectángulos 


B 

10,13 b= 7 c=3 7 
10.2) a=8 b=7 ario 

10.3) c=4 B= 27* Loi 

10.4) a=4 B= 26* "A. 
Cba 


Num. 1 
1.1) a=3.e2e B= 49* 23* 55”'* C= 40” 36” S”” 
1.2) c=5.20 B= 30* O” 0”” C= 60* O” O”” 
1.3) a=7.93 b= 3.72 C= 62” 
1.4) b= 3.35 c= 3.72 C= 48” 

Num. e 
2.1) a=8B.06 B= 29* 44* 42*”? C=60* 15” 18”” 
2.2) cac= 3.00 B= 53* 7” 48? C= 36* Se” 12”” 
2.3) a= 7.95 b=6.17 C= 39” 
2.4) b= 3.69 c= 4,73 cE=s52* 
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Num. 3 


3.1) a=8B.06 B= 29* 44” 42*” C= 60* 15” 18”” 
3.2) c= 3.46 B= 30* O” O0”” = 60” O” O”” 
3.3) a=7.95 b= 5.22 = y9* 
3.4) b= 2.29 c= 3.28 ES 33” 
Num. 4 
4.1) a=10.63 B= 48* 48* 51*” C= 41* 11? 39”” 
4.2) c= 5,20 = 30* O” O”” C= 60* O” O?” 
4,3) a= 5.47 b= 3,73 C= $7” 
4.493). b= 4.46 c= 4,01 c= 42” 
Num. 5 
5.1) a=6.410 B= 38” 39* 35”*” C= 51” 20” 25”” 
5,2) cCc=6.2e4 B= 38* 40” 56*” C= 51* 19” 4”” 
5,3) a=5.,2e b= 3.36 C= SO?” 
S.4) b= 2,00 c= 3.46 C= 60” 
Num. 6 
6.1) a=6.40 B= 51* 20* 25*” C= 38* 39” 35”” 
6.2) c= 3.87 B= 61* 2* 42**? C= 28* 57* 18” 
6.3) a= 9.33 b= 7,15 C= 40” 
6.4) b= 3.29 c= 6.18 C= 62” 
Num. 7 
7,1) a= 8.06 B= 29* 44” 42*”? C= 60” 15” 18”” 
7.2) c= 2,65 B= 48* 35* 25'” C= 41* 24” 35” 
7.3) a= 7.86 b= 3.57 = 63* 
7.4) b= 2.7e c= 5.35 C= 63* 
Num. 8 
8.1) a= 8.60 B= 54* 27* 44”? C= 35* 32” 16”” 
B.2) c= 5.74 B= 34* 51” O”? C= 55* 39” 0”” 
8.3) a=11.31 = 8.00 E= 45* 
8.4) b= 3,28 c= 3.77 Es Y49* 
Num. 39 
39.1) a= 9.e2e B= 49* 23* 55*”? C=$40* 36 S”” 
39.2) c= 5.20 B= 30* 0” O0”” = 60* O” 0”” 
9.3) a= 9.e4 b= 4.62 = 60” 
9.4) b= 2.19 c= 4,49 C= 64* 
Num. 10 
10.1) a= 7.62 B= 66* 48”* 5”? C= 23* 11* 55”” 
10.2) c= 3.87 B= 61* 2* 42”? (C= 28* 57* 18”” 
10.3) a= $4.49 b= 2.04 C= 63” 
10.4) b= 1.75 c= 3.60 C= 64” 
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Este es el programa sobre triángulos rectángulos: 


10 REM Resolución de triángulos rectángulos 

20 CLS 

ZO FRINT "TRIANGULOS RECTAGULOS” 
40 DEFSNG A-Z 

50 FRINT : PRINT 

60 INPUT "Cuántos ejercicios”; EJ 

70 DIM LA(EJ,4),LB(EJ,2),LC(EJ,3),GB(EJ, 4) 

20 FI=4xXATN(1) : Gé$=CHR$ (248) 

90 FOR K=1 TO EJ 

100 PRINT : PRINT 

110 PRINT"Num."¿K ¡"Resuelve los triángulos rectán 
gulos :"” 2: PRINT 

120 REM Caso 1 

130 LBE(K, 1)=INT(RND(1)k5+4) 

140 LC(K, 1)=INT(RND(1)x5+3) 

150 PRINT TAB(37)"E" 

160 PRINT USING "$+*%4.+"3K+.13 

170 FRINT ") b="5LB(K,1)3"  c="3LC(K,1);TAB(36)"/1" 
180 REM Caso 2 

190 LA(K,2)=INT(RND(1)1x35+4) 

200 LB(K,2)=LA(K,2)-INT(RND(1)X3+1) 

210 PRINT USING "H+H$.R+";k+.2; 

220 PRINT ") a="¡LA(K,2)3" b="¿LB(K, 2); TAB (33 
Ma £ 1 0” 

210 REM Caso 3 

240 LC(K,3)=INT(RND(1)x5+4) 

250 GB(K,3)=INT(RND(1)x20+25) 

260 PRINT USING "HH." E+.3; 

270 FRINT ") c="¿LC(K, 333" E="3STR$ (GB (K,:3)) 
66; 

280 FRINT TAB(234)"7 1" 

290 REM Caso 4 

300 LA(E,4)=INT(RND(1)x5+4) 

310 GB(K,4)=INT(RND (1) x30+25) 

320 PRINT USING "+HH+H.$+"3K+.4; 

330 FRINT ") a="¿LA(K,4)3" BE=";STR$(GR(K,4)) 
36$; 
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340 PRINT TAB(33)"/_ 1" 

350 PRINT TAB(32)"C b A" 

360 NEXT K 

370 FPRINT : FRINT : PRINT 

380 FRINT "SOLUCIONES DE TRIANGULOS RECTANGULOS" 
390 FOR K=1 TO EJ 

400 PRINT 

410 FRINT"Num."¿Kk 

420 REM Caso 1 

430 LA=SQR(LB(K, 1) *2+LC(K, 1)72) 

440 RX=ATN(LB(K,1)/LC(K,1)) : GOSUB 820 

450 GB=GX : MB=MX : SB=SX 

460 RX=FI/2-RX : GOSUB 820 

470 GC=6GX 2 MC=MX : SC=SX 

480 FRINT USING "HHH.4"5k+.1;5 

490 FRINT ")  a="3USING "H*.+H":LA;s 

500 FRINT TAR(19)"B=";STR$ (GB) 6%; STR$ (MB) 3 "” ";STR$ 
(SB 

510 FPRINT TAB(35)"C="¿STR$ (6C) 3 6$:STR$ (MC)5"" "¿STRS 
ESCIGNSS 

520 REM Caso 2 

3O LC=SOR(LA (KE, 2) "2-LB(K,2)72) 

RX=ATN(LB(K,2)/LC) : GOSUR 820 

DO GB=GX : MB=MX : SB=SX 

RX=FI/2-RX : GOSUB 820 

GC=GX : MC=MX : SC=SX 

FRINT USING "HER. AM EA. 

590 PRINT ")  c=";USING "+HH.H*"5LC; 

600 PRINT TAB(19)"B="3STR$(GB)56$STRS(MB)3"” "¿STR$ 
(SED So 

610 FRINT TAB(35)"C="3STR$ (6C) 36$3STR$(MC)3"* "¿STRS$ 
¡ELO 

620 REM Caso 

5630 RB=FI/1B80*xGB(Kk, 3) 

640 LBE=LC(K, 3) XTAN(RB) 

650 LA=LC (KE, 3) /COS(RE) 

660 GC=90-GB(K,-3) 

670 PRINT USING "HH+.H"5EK+.35 

680 FRINT "> a="¿USING "+H+*.H+%4":LA; 


h 
Oo 


cn 


OM Y 
oo 


cy) cn cp cn cn cn Cn 
o 
o 


690 PRINT TAB(19)"b=";USING "+HH.+44"5LB; 
700 FRINT TAB(25)"C="3¿STR$(6C)365$ 

710 REM Caso 4 

720 RB=F1/180XGB (K, 4) 

730 LC=LA(K, 4) xXCOS(RB) 

740 LB=LA(K, 4)XxSIN(RB) 

750 GC=90-—GR(K, 4) 

760 PRINT USING "*%4%*.4";K+.4; 

770 PRINT "> b=";¿USING "HH.+H+"s5LBA; 

780 FRINT TAB(19)"c=";USING "+HH.4t"5LC; 
790 PRINT TAB(35)"C=";STR$(6C) 56% 

800 NEXT K 

3810 END 

820 REM Subrutina RADIAN ——2 GRA,MIN, SEG 
830 DX=RXx180/FI 

840 GX=INT(DX) 

850 MX=INT (S60*k (DX-GX)) 

860 SX=INT (50% (40% (DX-GX)-—MX)+.5) 

870 IF SX=60 THEN SX=0 2: MX=MX+1 

880 IF MX=460 THEN MX=0 : GX=GX+1 

890 RETURN 


Si su pantalla es de 40 caracteres por línea y quiere que los 
resultados salgan en una sola línea, deberá reorganizar las instrucciones 
PRINT TAB y renunciar a que figuren los segundos de ángulo. 


Guarde el programa con el nombre de TRIANREC.BAS. 


9.2 TRIANGULOS CUALESQUIERA 


Este programa es análogo al anterior: propone la reslución de los 
cuatro casos. En el caso tercero los datos siempre han sido elegidos de 
modo que haya dos soluciones. 


Veamos cómo funciona el programa: 
TRIANGULOS 


Cuántos ejercicios? 10 


Num. 1 Resuelve los siguientes triángulos 


1.1) E= 7 A= 50” B- Bu” 
1.2) 5-8 c= 7 A= 45” 
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Num. 


Num. 


Num. 


Num. 
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MAemmA 


wuuu 


ERA 


un u y 


N0a0 


3) 


C= S A= 39” B=76”* 
b= B c= 6 A= BS” 
a= 3 c= 4 A= 33” 
a= 4 b= 5 c= 6 


3 Resuelve los siguientes triángulos 


C= 6 A= 46” B= 73* 
b= 5 c= 8 A= 134” 
a= 4 c= 6 A= 32* 
a= 4 b= 7 c= 8 


4 Resuelve los siguientes triángulos 


C= 6 A= 33” E=Y72* 
b= 6 c= 8 A= 128* 
a= 3 c= 4 A= 30” 
a= 4 b= Y c= 5 


Resuelve los siguientes 
C= 5 A= 41” B= 97* 
b= 4 C= 6 A= 133* 
a= 5 e= Y A= 26” 
a= 4 b= 8 c'=-.9 


Resuelve los siguientes 
c= Y A= 39” B= 839” 
b= 4 c= 6 A= 40” 
a= 5 c= 7 A= 239” 
a= 7 b= 7 c= 11 


triángulos 


triángulos 


Nu 


7 Resuelve los siguientes triángulos 
13) c=8 A= 50* B= 76” 
2) b=6 c= 7 A= 109” 
JD a=4 c= 6 A= 33* 
4) a=8 b= 4 c= 9 
8 Resuelve los siguientes triángulos 
10) c=5 A= 31” B= 392” 
.2) b= + c= B A= 69” 
3) a=3 c= 4 A= 25” 
4) a= $4 b= 4 c= 5 
3 Resuelve los siguientes triángulos 
1) c=5S A= 32* B= 79* 
2) b=6 c= 4 A= 132* 
33) a= 4 e= 5 A= 25” 
4) a= 7 b= 5 c= 9 
10 Resuelve los siguientes triángulos 
1). e=" A= 59” B= 75” 
2) b= $4 c= 5 A= 101” 
3) a=5 c= 7 A= 25” 
4) a= 6 b= 5 c= 8 
SOLUCIONES DE TRIANGULOS **x* 


1 
1) a=7.45 b= 9.68 C= 4bB* 
2) a= 5.81 = 76* 38* 36*” C= 5B* 21* 24”” 
3) Sd ES B=.111* 19* 4” C=.:3B* 40” 56” 
33) b= 1.21 B= 8* 40” S56”?” C= 141* 19* 4”” 
Y) A=R26* 23 4”? B=62* 43* 13*? C=390* 53” 43”” 
(= 
1) a=3.47 b= 5.35 E= B5* 
23) a= 3.57 B= 56* 21* 40” C= 38* 38* 20”” 
3) b=5.4e = 100* 25* 57*” C=46* 34* 3*” 
32 b= 1,29 = 13 34" a” C= 133* 25s* 57”” 
Y) A=341* 24? 35*”” B=55* 46* 16'? C=Be* 49” 39”” 
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a= 4.93 b= 6.56 C= 61” 


a=128.02 B= 17* e4* 19”” = 28* 35* 41”” 
b= 7.52 B= 95” 21” 22*” C=.528* 38” 38”* 
b= 2.66 B= 20* 38* 38** C= 127* 21* ee”” 
A= 29* 59* 41” B= 61* 1* 4u2”” C= BB* 58” 36”” 
a= 5.85 b= 6.97 = 59 

a=12.61 B=.22*” 0% 51*”” = 29* 59” 9”” 
b= 5.70 = 108* 11* 23** C=41* 48* 37”? 
b= 1.23 = 11* 48” 37?” = 138* 11* 23'” 
A= 51* 19* 4*” B=51* 19” 4”” E=77* 21* 5e”” 
a= 4.90 b= 7.42 (=u2* 

a= 9.21 = 18* 31* 48”? = 28* 28” 12”” 
b=10.e24 =116” 8* 28”” =37* 51” 32'*” 
b= 2.34 = 11” Si” 38”” = 14e* 8* 28?” 


A= 26* 23” 4** B=be"” 43* 13** 0U=$Y0*" 53” Y43*" 


a= 3.19 b= 5.08 C= Se” 

a= 3.90 B= 41* 182” 41”” = 398* 47” 19*” 

b= 9.79 B= 108* 15* 19”? C=Ye* 44* 41”” 

b= 2.45 = 13* 44* 41”” = 137* 15” 19'” 
A= 38* 12* 4B”” B=38* 12 48*” C=103* 34* 25”*' 
a= 7.58 b= 39.59 C= 54* 

a=10.60 = 32* 21* 34” (C= 38* 38* 26'” 

b= 7.34 B= 92” 13” 7”*” C= 51" 46* 53”* 

b= 2:73 B=.21* 46” 53** E= 125* 13" 7*” 

A= 62* 43* 13*” B- 26* 23* 4”” C=.30*” 53* 43" 

a= 3.07 b= 5.96 C= 57* 

a= 7.55 B= 29” 37* 35”* = B1* 22? 25”” 

b= 6.10 B= 120* 42” 9”” = 34” 17” S1>” 

b= 1.15 B= 9* 17* 51”” = 145* 4a” 39*” 

A= 51” 19* 4*” B=51* 19* 4*” C=. 77" qe1” 5e** 

a= 2.84 = 5.26 C= 69” 

a= 9,17 = 29* 5” 19*” = 18* 54* 41”” 

b= 7.93 B= 123* 6* 40*” C=31* 53* 20”” 

b= 1.14 B= B* 53" 20”” = 148* 6” 40”” 

A= 50* 42* 13*” B= 33* 33* 26*” C=35* 44* 21”? 


10.1) a= 5.96 b=6.71 C= 46” 

10.2) a= 6.97 B= 34* 16” 0” C=44" 494” 0*> 
10.33) b=-10.38 B= 118" 43* 29*”*? C= 36” 16* 31”” 
10.3) b= 2.31 B= 11* 16* 31*”*? C= 143* 43* 23”” 


10.4) A= 48” 30* 33*” B=38* 37* 29'* C=392* 51” S58”” 


He aquí el programa que propone ejercicios de triángulos: 


10 REM Resolución de triángulos 

ZO CLS 

30 FRINT "TRIANGULOS". 2: PRINT : FRINT 
40 DEFSNG A-Z 

50 INFUT "Cuántos ejercicios";EJ 

50 DIM LA(EJ,4),LB(EJ,4),LC(EJ, 4),GA(EJ, 4),GE(EJ, 4) 
70 FI=4XATN(1) : G$=CHR*$ (248) 

80 REM arco coseno (ft x no 0 ) 

90 DEF FN AR(X)=ATN(SOR (1-X*X) /X)+(1-SGN (X))/2XF1 
100 FOR E=1 TO EJ 

110 FRINT. : FRINT 

120 PRINT"Num."¡E ¡"Resuelve los siguientes triáng 
ulos :” 2: PRINT 

130 REM Caso 1 

140 LC(K, 1)=INT(RND(1)1x5+4) 

150 GA(EK,1)=INT(RND(1)x30+230) 

160 GB(K, 1)=INT(RND(1)kx30+70) 

170 FRINT USING "HHH.+4":K+.1; 

180 FRINT "> c="¿LC(K,1)3"  A="3STR$(GA(K,1));6%; 
" B="¡¿STR$(GB(K,1));6$ 

190 REM Caso 2 

200 LB(K,2)=INT(RND(1)x5+4) 

210 LC(K,2)=INT(RND(1)x5+4) 

220 GA(K,2)=INT(RND(1)1x120+20) 

230 FPRINT USING "HH4H.4" Ek+.27 

240 PRINT")  b="¿LBE(E,2)3"  c="¿LC(K,2)3" a="; 
STR$ (GA (K,2)):;65$ 

250 REM Caso 3 

260 LC(K,3)=INT(RND(1)x3+4) 

270 LA(K,3)=INT(LC(K, 3)*k.8) 

280 GA(K,3)=INT(RND(1)x10+25) 

290 FRINT USING "HH 4" k+.35 
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300 FRINT ")  a="¿LA(K, 333"  c="¿LC(K,3)3" a="; 
STR$ (GA(K,3)3)36$ 
310 REM Caso 4 
320 LA(K,4)=INT(RND (1) x5+4) 
3230 LB(K,4)=INTC(RND(1)x5+4) 
340 LC(K, 4)=LA(K, 4) +LE(K, 4) 
350 PRINT USING "HHH.4"5E+.4;5 
¿60 FRINT ") a="¡LA(K,4)3"  b="¿LR(K,4)3" c="; 
LC(E, 4) 
370 NEXT K 
380 PRINT : FRINT : FRINT 
3920 PRINT "*xxx SOLUCIONES DE TRIANGULOS Xxx" 
400 FOR FKE=1 TO EJ 
410 FRINT 
420 FRINT"Num. "¿kE 
430 REM Caso 1 
440 GC=180-GA (K,1)-GR(K, 1) 
450 RA=GA(K, 1)/180xFI 
460 RE=GR(K,1)/180XxF1 
470 RC=FI-RA-RE 
480 LA=LC(K, 1) XSIN(RA)/SIN(RC) 
490 LB=LC(K,1)xSINCREO /SINIRC) 
500 FRINT USING "44+.$"¡kK+.1; 
Ss10 PRINT ") a="sUSING "HH. RHRUILA; 
520 FRINT TAB(25)"b="; USING "HH.HE";LE; 
PRINT TAB(42)"C="3STR$(6C); 6% 
REM Caso 2 
RA=GA (K, 2) /180xFI 
LA=SQOR (LEB(K, 2)" 2+LC(E, 2) “2-2XLE(K, 2) XLC(K,2)X 
COS(RA) ) 
59570 ECB=(LAPS2A+LC(EK, 2) “"2-LE(K, 2) 02) / (2 kALAXLC(K,2)) 
580 IF CB=0 THEN RE=F1/2 ELSE RB=FNAR (CH) 
570 REC=FI-RA-RR 
500 RX=RB 2: GOSUB 1100 
610 GB=GX : MBE=MX : SB=SX 
ZO RX=RC : GOSUBE 1100 
630 GC=GX 2 MC=MX 2: SC=SX 
640 FRINT USING "$44.43 He+.2;5 
650 FRINT ") a="¡ USING "+%4.H++";LA; 


cu cn Cn 
O O 


CG (Mp 4 
o 


cn 


650 PRINT TAB(250)"BE="¿STRS$(6GB)30$;STRE(ME)3"""; 
STR$(SB)3"7070"3 

670 FRINT TAB (42)"C="¿STR$ (GC) 36%: STRS$ (MC)7"""; 
STRS$S(SCIP070" 

680 REM Caso 3 

690 RA=GA(E,3)/180KkPI 

700 DI=LC(E, Z)XSIN(RA) 

710 SC=DI/LA(E,Z3) : CC=SQOR (1-SC2) 

720 1F CC=0 THEN C1=F1/2 2: C2=C1 : GOTO 740 
730 C1=FN AR(CC) 2: C2=FN AR (-CC) 

740 Bi=PI-C1i-RA : B2=FI-C2-RA 

750 L1=SQRILA(K, 3) *2+LCO(K, 3) 2-2XLA(EK, 3) XLC(EK, 3) Xx 
COS(K1)) 

760 L2=SQRI(LA(K, 3) "2Z+LCO(K, 3) *2-2XLA(K, 3)XLC(EK, 3) RX 
2COS(B2)) 

770 FRINT USING "HH. 44M +. 3; 

780 FRINT ")  b="¡USING "H$H.+H"5L1; 

790 RX=B1:G0SUR 1100 

806 FRINT TAB(25)"BE="3 STR$ (GX) 36$3STR$ (MX)3 "7" "z 
STR$(SXI 90 

810 RX=C1 : GOSUE 1100 

820 PRINT TAB (42)"C="3STR$ (GX) 308; STR$(MX)"""; 
STRSI(SII 3000" 

830 1F LC(K,3)<=LA(E,Z%) THEN RETURN 

840 FRINT USING "+HH.H" E+.35 

850 FRINT ")' b="¿USING "4H.HHUILO; 

860 RX=B2 : GOSUE 1100 

870 FRINT TAB(25)"B="¿STRS$(GX) ;0%STR$(MX)3"7""; 
STR$ (SX):"?7";5 

880 RX=C2 : GOSUB 1106 

890 PRINT TAB(42)"C="¿STR$ (GX) 36$;STRS(MX)5"7"; 
STR$(SX) 377" 

900 REM Caso 4 

910 LA=LA(KE,4) : LB=LR(K,4) 2: LC=LC(E, 4) 

920 CA=(LB?24+LO"2-LA72)/C2YLBEBXLC) 

930 CB=(LATZ+LOT2-LE"2)/(2xXLAXLC) 

940 CEC=(LAT2+LB2Z-LCO72)/ C2KLAXLE) 

950 RA=FN ARICA) 

960 RB=FN ARCH) 


970 RCU=FN AR(CC) 

980 RX=RA : GOSUB 1100 

990 GA=GX : MA=MX : SA=SX 

1000 PRINT USING "HRR.4"¡k+.4; 

1010 PRINT ") A="¿STR$(GA)¡G$¿STRS (MA) """; 
STR$(SO) ">>"; 

1020 RX=RB : GOSUB 1100 

1030 GB=6GX : MB=MX : SE=SX 

1040 FRINT TAB(25)"B="¿STR$(GE)¡G6$STRS(ME)¿ ">"; 
STR$S(SB) "97"; 

1050 RX=RC : GOSUB 1100 

1060 GC=6GX : MC=MX : SC=SX 

1070 PRINT TAR (42) "C="¿STR$(GC)¡G$¿STRS(MC)¿"""; 
STR$(SCI"7 2" 

1080 NEXT k 

1090 END 

1100 REM Subrutina RADIAN -—> GRA,MIN,SEG 
1110 DX=RX*180/FI 

1120 GX=INT(DX) 

1130 MX=INT (60% (DX-GX) ) 

1140 SX=INT (60% (60X (DX-GX)-MX)+.5) 

1150 IF SX=60 THEN SX=0 : MX=MX+1 

1160 IF MX=60 THEN MX=0 : GX=GX+1 

1170 RETURN 


Guarde el programa con el nombre de TRIANGUL.BAS. 
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REPRESENTACION GRAFICA 
DE FUNCIONES 


10.1. REPRESENTACION GRAFICA DE FUNCIONES 


En este capítulo se rompe el esquema que hemos seguido en todos 
los programas del libro, a saber: primero presentar en la pantalla, o en el 
papel de la impresora los enunciados de los ejercicios generados por el 
ordenador, y después, las soluciones correspondientes. 


En el caso de la representación gráfica de funciones es muy dificil 
conseguir que el ordenador genere enunciados, es decir, definiciones de 
funciones, a no ser que nos limitemos a un tipo determinado de ellas y 
variemos las funciones con la adición (o multiplicación), de constantes 
aleatorias, cosa que no tiene demasiado interés. Parece más sensato 
ofrecer un programa flexible para representar cualquier función que se 
pueda definir con el lenguaje BASIC. 


Veamos cómo funciona el programa: 


REPRESENTACION GRAFICA DE UNA FUNCION FCX) 
Complete la definición de la función £(x) de la línea 120 y pulse la tecla 
< RETURN >. 

Escriba RUN 70 y pulse la tecla < RETURN >. 


120 DEF FN FCX)=X*SINCX) 
Dk 
run 70 


Extremos del intervalo (a,b)? -11,11 


ESTOY TRABAJANDO 


Espere unos segundos 


139 


Al cabo de un tiempo aparece en la pantalla esta gráfica: 


a-l1/A he 11 Ma 7,92 nic y 


. 

, y 
, . 
' 

e ' 
, s 


ala 


figura 1 


Nótese que en la primera línea de la pantalla aparece el intervalo 
[a,b], así como el valor máximo MA y el valor mínimo mi que alcanza 
la función en dicho intervalo. 


El programa aprovecha la pantalla lo mejor posible: sitúa el punto 
más alto de la gráfica en el borde superior, el más bajo en el borde 
inferior y los ejes en el sitio que les corresponde. 


Con este programa es posible estudiar con más detalle un trozo 
determinado de curva (poner la lupa). Basta para ello restrigir el 
intervalo de definición. Así, si hacemos a = —6 y b=6, resulta la 
gráfica: 
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figura 2 


Este es el programa de representaciones gráficas: 


10 REM Representación gráfica de 4 (x) 

20 CLS : KEY OFF 

ZO FRINT "REFRESENTACION GRAFI 
CA DE UNA FUNCTION FOO" 1: PRINT 
40 FRINT "Complete la definición de la función 
f(x) de la línea 120 y pulse la tecla” 2: PRINT 
¿ PRINT "<< RETURN 3." : PRINT : FRINT 

50 PRINT "Escriba RUN 70 y pulse la tecla < 
RETURN 5." 2: FRINT : FRINT 

60 LIST 120 

7% DEFSNG A-Z 

80 FRINT : FRINT : INFUT "Extremos del intervalo 
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la,b)”¡A.B 
90 DIM Y (6739) 


100 
JA 
116 
120 
130 


CLS : LOCATE 12,21 : PRINT "ESTOY TRABA 


N DO” 

LOCATE 18,26 : FRINT "Espere unos segundos" 
DEF FN F(X)=XX*XSIN(X) 

REM Cálculo del máximo y del minimo 


140 E=(B-A)/6:39 

150 MA=FN F(B) : MI=MA 

160 FOR IY/=0 TO 639 

170 Y(1/)=FN FCA+IZAE) 

1809 IF YC(IZ)>MA THEN MA=Y (17) 
190 IF Y(17)í¿MI THEN MI=Y (1%) 
200 NEXT 1% 

210 CLS 

220 REM Dibujo de los ejes 
230 SCREEN 2 

240 FRINT " a="3A3" b="3B; TAB (44) "Ma="3 INT ( 
MAxX100+.5)/100;" mi=”3 INT(MIx100+.5)/100 
250 D=199/ (MA-MI) 

260 LINE (O, DAMA) - (637, DXxMA) 
270 LINE (—A/E,O0)-1(-A/E,199) 
2890 REM Dibujo de la curva 
290 FOR 1%=0 TO 69 

ZO0 J%=-DX*Y(17)+DXMA 

310 PSET(1%,.J37%) 

320 NEXT 1% 

330 END 
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Guárdelo con el nombre de GRAFICAS.BAS. 


EA 


